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.Что я могу сделать, чтобы запустить код?