Jump to content
Fórum Script Brasil
  • 0

Dúvida simples com função recv do WinSock


Dolfin

Question

Primeiramente, boa tarde!

Estou 'rascunhando' um cliente POP3 aqui no Delphi e para aprendizado to tentando fazer tudo via API do WinSock nativo do Windows.

Mas sou iniciante em programação e no Delphi, uma vez ou outra pego para fazer algum programinha, mais por aprendizado mesmo...

E me surgiu um problema que creio que para a maioria de vocês vai ser um problema bem bobo, mas já procurei e não consigo encontrar como solucionar...

É o seguinte, eu conecto pela porta 110 do servidor POP3, e logo de cara ele me exibe a mensagem:

+OK Hello there. <[email protected]>

Porém eu não consigo puxar essa mensagem pelo meu programa, gostaria de exibir isso num Memo, porém só aparecem caracteres orientais e quadrados... Abaixo vou colar a parte do código:

if(connect(sock,addr,sizeof(addr)) = -1) then
begin
writeln('Ocorreu um erro ao conectar-se.');
exit;
end;
ZeroMemory(@buf,100);
recv(sock,buf,sizeof(buf),0);
Memo1.Lines.Add(StrPas(buf));
end;

Essa parte conecta, recebe o texto, grava na variavel buf e adiciona o conteúdo da buf na Memo1... Como disse, só aparecem caracteres esquisitos...

Aguardo a ajuda de vocês!!!

Link to post
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      149410
    • Total Posts
      645901
×
×
  • Create New...