DLL из Visual C# в Delphi 2010

[Aliens_wolfs]

Просто настоящая проблема в том, что с помощью делфи я не могу сделать Get-запрос по https простоколу. В делфи для этого нужен TIdHTTP и TIdSSLIOHandlerSocketOpenSSL объекты. При выполнении Get запроса программа ругается could not load ssl library

Видимо неправильно обработку запроса делал, а на Visual C# 2010 у него есть готовая DLL которая все четко делает, у него на Delphi не получается сделать такого рода Get запросы, можно просто помочь ему на дельфи все это сделать.
Хотелось бы от него услышать какого рода запрос должен быть

[p51x]

Вы даже тот пост до конца не прочитали или вам просто пофлудить?..

[Aliens_wolfs]

Все я читал, просто методами дельфи наверное можно все это сделать.
Вам же FaTaL и WorldMaster все разъяснили

[p51x]

Можно. И в том же посте он рассказывает как.

[Aliens_wolfs]

Возможно что он что то не так делал на дельфи

[p51x]

Именно. И он это сам писал. Даже в этой теме.

[3dik]

Сообщение от Aliens_wolfs

Хотелось бы от него услышать какого рода запрос должен быть

Пробовал я и так как Вы написали мне вот:

procedure TForm1.Button1Click(Sender: TObject);
var HTTP: TIdHTTP;
sslHandler : TIdSSLIOHandlerSocketOpenSSL;
begin
 HTTP := TIdHTTP.Create(nil);
 sslHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
 http.IOHandler := sslHandler; //Так как запрос отправляю по https протоколу, добавляю ссл хандлер
 try
   HTTP.HandleRedirects := true;
   HTTP.Get('https://ru.wikipedia.org/wiki/Заглавная_страница');
   Showmessage(HTTP.Request.URL);
   finally
    HTTP.Free;
end;
end;

Ошибка Could not load SSL Library.
Вот и проблема что для страниц по протоколу https нужно указывать IOHandler в TIdHTTP объекте. При этом нужны две библы для ссл libeay32.dll, ssleay32.dll. я их кидал и в папку с исполняемым файлом своей проги и в system32 - бесполезняк. Они не подходят чтоли. У меня Embarcadero RAD Studio 2010, версия Indy 10.5.5

[Aliens_wolfs]

Это можно попробовать реализовать на голом сокете WinSock, сейчас попробую накидать код, где то у меня были наработки, Можно еще на Synapse модулях попробовать там вроде SSL норм

[3dik]

жду)

[Aliens_wolfs]

Да уж на synapse тоже не работает. Хотя раньше https запросы вроде нормально работали. Просто сертификат подставляешь с опере экспортированный и все должно было работать, но нет.

   
var pList : TStringList;
httpsend: THTTPSend;
begin
 pList := TStringList.Create;
 httpsend:=THTTPSend.Create;  
               httpsend.Protocol := '1.1';
               httpsend.Sock.SSL.CertificateFile:='12345.cer';
               httpsend.Sock.SSL.CertCAFile:='1234.cer';
               httpsend.Sock.SSLDoConnect;
               httpsend.HTTPMethod('get','https://ru.wikipedia.org/wiki/Заглавная_страница');
               pList.LoadFromStream(httpsend.Document);
               Memo1.Lines.Add((pList.Text));

А через WebBrowser1 не пробовал? Правда решение не очень правильное но все же. С ним работает

procedure WaitForBrowser(WB: TWebbrowser);
begin
  while (WB.ReadyState <> READYSTATE_COMPLETE)
    and not (Application.Terminated) do
  begin
    Application.ProcessMessages;
    Sleep(0);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
WebBrowser: TWebBrowser;
DocStream: TStringStream;
begin
WebBrowser:= TWebBrowser.Create(nil);
DocStream:= TStringStream.Create('');
try
   WebBrowser.ParentWindow:= Handle;
   WebBrowser.Hide;
   WebBrowser.Navigate('https://ru.wikipedia.org/wiki/Заглавная_страница');
   WaitforBrowser(WebBrowser);
   (WebBrowser.Document as IPersistStreamInit).Save(TStreamAdapter.Create(DocStream), false);
   DocStream.Position:= 0;
   Memo1.Lines.LoadFromStream(DocStream); // Получаем страницу в Memo
finally
WebBrowser.free;
DocStream.free;
end;
end;