ojZim0
پنج شنبه 25 خرداد 1391, 16:07 عصر
سلام. من تازه از ویژوال بیسیک به دلفی مهاجرت کردم و متوجه شدم که هیچی دلفی نمیشه. اما برای وصل کردن سوکت مشکل دارم.
یعنی با موفقیت به سرور کانکت میشم، بعد از کانکت شدن درخواست رو به سرور ارسال میکنم اما هیچ جوابی از سرور نمیاد :متفکر: مطمئنم سرور مشکلی نداره به دلایل زیر:
1- سرور مال یاهو هست
2- توی وی بی بدون مشکل اطلاعات دریافت میشه
اصلاً شاید من سوکت رو اشتباه انتخاب کرده باشم! توی دلفی هزار تا سوکت بود من نفهمیدم باید از کدوم استفاده کنم، یه چیزی میخوام تو مایه های Microsoft Winsock باشه که توی وی بی ازش استفاده میکردم.
این هم کدهای من:
procedure TfrmMain.btnLoginClick(Sender: TObject);
begin
TcpClient1.Active := False;
TcpClient1.RemoteHost := 'login.yahoo.com';
TcpClient1.RemotePort := '80';
TcpClient1.Active := True;
end;
procedure TfrmMain.TcpClient1Connect(Sender: TObject);
Var LoginStr: String;
begin
LoginStr := 'GET http://login.yahoo.com/config/login?login=' + txtUser.Text + '&passwd=' + txtPass.text + ' HTTP/1.1' + Chr(13);
LoginStr := 'Accept-Language: en-us' + Chr(13);
LoginStr := 'User-Agent: Mozilla/5.0 (compatible; MSIE 8.0; Windows NT 5.1; Expulsion-Creations)' + Chr(13);
LoginStr := 'Accept: */*' + Chr(13);
LoginStr := 'Host: login.yahoo.com' + Chr(13);
LoginStr := 'Connection: Keep-Alive' + Chr(13) + Chr(13);
TcpClient1.Sendln(LoginStr);
end;
procedure TfrmMain.TcpClient1Receive(Sender: TObject; Buf: PAnsiChar;
var DataLen: Integer);
begin
ShowMessage('daryaftShod');
end;
دوستان ممنون میشم کمک کنید.:تشویق:
بعداً نوشت: انگار سیستم ویبولتین توی کدهای من خودبه خود تغییر ایجاد کرده. چون داخل کدهای من لینک هست ممکنه شما کد تگ لینک رو به صورت <a ببینید و بهش اعتنا نکنید. ممنون
یعنی با موفقیت به سرور کانکت میشم، بعد از کانکت شدن درخواست رو به سرور ارسال میکنم اما هیچ جوابی از سرور نمیاد :متفکر: مطمئنم سرور مشکلی نداره به دلایل زیر:
1- سرور مال یاهو هست
2- توی وی بی بدون مشکل اطلاعات دریافت میشه
اصلاً شاید من سوکت رو اشتباه انتخاب کرده باشم! توی دلفی هزار تا سوکت بود من نفهمیدم باید از کدوم استفاده کنم، یه چیزی میخوام تو مایه های Microsoft Winsock باشه که توی وی بی ازش استفاده میکردم.
این هم کدهای من:
procedure TfrmMain.btnLoginClick(Sender: TObject);
begin
TcpClient1.Active := False;
TcpClient1.RemoteHost := 'login.yahoo.com';
TcpClient1.RemotePort := '80';
TcpClient1.Active := True;
end;
procedure TfrmMain.TcpClient1Connect(Sender: TObject);
Var LoginStr: String;
begin
LoginStr := 'GET http://login.yahoo.com/config/login?login=' + txtUser.Text + '&passwd=' + txtPass.text + ' HTTP/1.1' + Chr(13);
LoginStr := 'Accept-Language: en-us' + Chr(13);
LoginStr := 'User-Agent: Mozilla/5.0 (compatible; MSIE 8.0; Windows NT 5.1; Expulsion-Creations)' + Chr(13);
LoginStr := 'Accept: */*' + Chr(13);
LoginStr := 'Host: login.yahoo.com' + Chr(13);
LoginStr := 'Connection: Keep-Alive' + Chr(13) + Chr(13);
TcpClient1.Sendln(LoginStr);
end;
procedure TfrmMain.TcpClient1Receive(Sender: TObject; Buf: PAnsiChar;
var DataLen: Integer);
begin
ShowMessage('daryaftShod');
end;
دوستان ممنون میشم کمک کنید.:تشویق:
بعداً نوشت: انگار سیستم ویبولتین توی کدهای من خودبه خود تغییر ایجاد کرده. چون داخل کدهای من لینک هست ممکنه شما کد تگ لینک رو به صورت <a ببینید و بهش اعتنا نکنید. ممنون