0
procedure TForm1.btnGirisClick(Sender: TObject);
var
post:tstringlist;
get:TStringStream;
begin
post:=TStringList.Create;
get:=TStringStream.Create('');
try
post.Clear;
IdHTTP1.Disconnect;
post.Add('[email protected]');
post.Add('pass=xxxx');
IdHTTP1.Post('https://www.facebook.com/login.php',post,get);
Memo1.Text:=get.DataString;
except
on e: exception do begin
memo1.text:='';
end;
end;
post.Free;
get.Free;
end;
end.
我需要幫助有關idHttp和SSL庫...idHttp和HTTPS頁面登錄錯誤
我寫一個簡單的Delphi7的代碼(要登錄博客與我的應用程序),當我要運行它,它給我一個錯誤代碼如下;
和錯誤是「無法加載SSL庫」我拖動idHttp和IdSSLIOHandlerSocket1並將iohandler設置爲IdSSLIOHandlerSocket1。我能做些什麼來運行代碼?
我做到了,程序給了我另一個錯誤。那就是「連接到SSL出錯」是什麼?你有什麼主意嗎 ? –
確保將方法設置爲sslvSSLv23,並將IPVersion設置爲id_ipv4。另外即時通訊假設您使用IdSSLIOHandlerSocketOpenSSL – Kevin
是的我設置方法sslvSSLv23,但我使用IdSSLIOHandlerSocket我不在delphi 7中找到IdSSLIOHandlerSocketOpenSSL。它們是否一樣? –