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 Library”,我拖拽了一个idHttp和IdSSLIOHandlerSocket1,并将iohandler设置为IdSSLIOHandlerSocket1。我能做些什么来运行代码?
发布于 2011-11-08 21:58:01
您必须将这两个SSL dll都放在应用程序文件夹或system/win32文件夹中。
把它们放到这里:http://indy.fulgan.com/SSL/
https://stackoverflow.com/questions/8029922
复制相似问题