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...
Question
Dolfin
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. <32394.1323537196@localhost.localdomain>
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 comment
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.