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=xxx@xxx.com');
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 ライブラリについて手伝う必要があります...
私は簡単なdelphi7コードを書き(私のアプリケーションでFacebookにログインしたい)、それを実行したいときに、コードが以下のエラーを出します;
エラーは「SSL ライブラリを読み込めませんでした」です。idHttp と IdSSLIOHandlerSocket1 をドラッグし、iohandler を IdSSLIOHandlerSocket1 に設定します。コードを実行するにはどうすればよいですか?