[Delphi] WinSock & POP3

Не могу разобраться где ошибка...

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, winsock;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var
WSD : WSAdata;
S: TSocket;
SA: TSockAddr;
cmd: String;
//ans: array[0..255] of Char;
res: Array[0..255] of AnsiChar;
begin
   if WSAStartup($101,WSD)<>0 then
   begin
      Memo1.Lines.Add('Connect error...');
      exit;
   end;

   SA.sin_family := AF_INET;
   SA.sin_addr.S_addr := inet_addr('94.100.177.6');
   S := socket(AF_INET, SOCK_STREAM, 0);

   if S = INVALID_SOCKET then Memo1.Lines.Add('Socket error...');

   SA.sin_port := htons(110);

   if connect(S, SA, sizeof(SA)) = SOCKET_ERROR then
   begin
     Memo1.Lines.Add('Connect socket error...');
     exit;
   end;

   Memo1.Lines.Add('Good Connect!');
   sleep(2000);

   cmd:='USER michael_ur';
   send(S, Pointer(cmd)^, Length(cmd)*SizeOf(Char), 0);
   recv(S, res, sizeof(res), 0); //уже не получается
   Memo1.Lines.Add(res);
   //Memo1.Lines.Add(ReadFromSocket(S));
   sleep(1000);
   WSACleanup;

end;

end.

В ответ сервера приходит -ERR Invalid command... Помогите

 

Странно, но у меня приходит в ответ +OK. Код тот, что и выше.

 

ну вообщето в конце команды должны быть #13#10

 

slesh, пробовал и так ничего не меняется....

Chrome, вот полный ответ который приходит:

Code:

Good Connect!
+OK 
-ERR Invalid command
-ERR Invalid command
-ERR Invalid command
-ERR Invalid command
-ERR Invalid command
-ERR Invalid command
-ERR Invalid command
-ERR Invalid command
-ERR Invalid command
-ERR Invalid command
-ERR Invalid command
-ERR Inv

2 дня иппусь...

send(S, Pointer(cmd)^, Length(cmd)*SizeOf(Char), 0); - параметры этой функции правильно задал?
-----------------------

Проблема решена:

до этого писал проэкт в RAD Studio 2010, сегодня скомпилил в Delphi7 код тот же но в Дельфи 7 он работает, всем спасибо за помощь.

 

Интересно, но почему так? Благодаря каким различиям между Delphi 2010 и Delphi 7 так получилось?

 

Не первый раз замечаю что в дельфи7 код работает нормально, а в RAD 2010 тот же код работает так как ему захочется, товарищ предположил, что может это из-за кряка... Хз вообщем

 

может рад студия собирала в юникоде? в любом случае сниффер бы ответил на вопрос

 

Необязательно

не обязательно

 

read this fuckin RFC!!