Delphi siteye yorum

[Halil Han BADEM]

(31-05-2018, Saat: 00:00)Paranoyaq Adlı Kullanıcıdan Alıntı:

function DoLogin(const username,email,url,comment: string): string;
var
IdHTTP: TIdHTTP;
Request: TStringList;
begin
try
 Request := TStringList.Create;
 try
   Request.Add('action=do_login');
   Request.Add('url=https://www.oyunkabini.com/battlefield-v-ilk-fragmanini-yayinladi-ve-daha-fazlasi-dlc-premium-passes/');
   Request.Add('submit=727');
   Request.Add('author='+username);
   Request.Add('email='+email);
   Request.Add('url='+url);
   Request.Add('comment='+comment);
   Request.Add('submit');
   IdHTTP := TIdHTTP.Create;
   try
     IdHTTP.AllowCookies := True;
     IdHTTP.HandleRedirects := True;
     IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
     IdHTTP.Post('https://www.oyunkabini.com/wp-comments-post.php', Request);
     Result := IdHTTP.Get('http://www.oyunkabini.com');
     if StrUtils.ContainsStr(Result, 'submit') then //Login başarısız demektir
       Result := '';
   finally
     IdHTTP.Free;
   end;
 finally
   Request.Free;
 end;
finally
 Result := '';
end;
end;

except yerine finally

buton kodum 

memo2.Lines.Add(DoLogin(edit1.Text,edit2.Text,edit3.Text,memo1.Text));

Hata Could Not Load SSL library

Direkt hatayı yazsan koda gerek kalmayacak... Sadece SSLLib DLL paketini yükle uygulamanın yanına yükle. Forumda mevcut konu bizzat ben açmıştım zaten