DLL из Visual C# в Delphi 2010

[Alex11223]

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

Просто сертификат подставляешь с опере экспортированный и все должно было работать

оО
Что за дикие извращения?

Там ж тоже просто надо взять ssleay32.dll и libeay32.dll
И вроде добавить .Sock.CreateWithSSL(TSSLOpenSSL), .Sock.SSLDoConnect

[Aliens_wolfs]

Там ж тоже просто надо взять ssleay32.dll и libeay32.dll
И вроде добавить .Sock.CreateWithSSL(TSSLOpenSSL), .Sock.SSLDoConnect

Не работает уже пробовали, да и тут примеры есть но они не рабочие
Нашел другие dll openssleay32.dll и openlibeay32.dll что то пытается подключиться но страницу не дает


Ура на synapse заработало, еще вчера на нем пробовал все ни как даже с сертификатами мутил хотя раньше вроде не было проблем, даже на WinSock модуле SSLSocket пробовал с этими dll, но сегодня dll сменил и все заработало

В общем так:
1. качаете можно в папку с программой
openssleay32.dll http://softkumir.ru/indexdll.php?dll=29209
openlibeay32.dll http://softkumir.ru/indexdll.php?dll=29210

2. устанавливаете Synapse если нет его модулей

3. далее в unit ssl_openssl_lib; меняете все dll на те названия что скачали

const
  {$IFDEF LINUX}
  DLLSSLName = 'libssl.so';
  DLLUtilName = 'libcrypto.so';
  {$ELSE}
  DLLSSLName = 'Openssleay32.dll';
  DLLUtilName = 'Openlibeay32.dll';
  {$ENDIF}
{$ELSE}
var
  {$IFNDEF MSWINDOWS}
    {$IFDEF DARWIN}
    DLLSSLName: string = 'libssl.dylib';
    DLLUtilName: string = 'libcrypto.dylib';
    {$ELSE}
    DLLSSLName: string = 'libssl.so';
    DLLUtilName: string = 'libcrypto.so';
    {$ENDIF}
  {$ELSE}
  DLLSSLName: string = 'Openssleay32.dll'; 
  DLLSSLName2: string = 'libssl32.dll';
  DLLUtilName: string = 'Openlibeay32.dll';

4. ну и сам код

procedure TForm1.Button3Click(Sender: TObject);
var pList : TStringList;
httpsend: THTTPSend;
begin
 pList := TStringList.Create;
 httpsend:=THTTPSend.Create;
 try
               httpsend.Protocol := '1.1';
               httpsend.Sock.SSLDoConnect;
               httpsend.HTTPMethod('get', 'https://ru.wikipedia.org/wiki/Заглавная_страница');
               pList.LoadFromStream(httpsend.Document);
               Memo1.Lines.Add((pList.Text));
 finally
 pList. free;
 httpsend.free;
end;
end;

[3dik]

Через webbrowser идея интересная, буду иметь ввиду, спасибо) А так я наконецто нашел эти библы, подходящие, всё заработало! Кладу рядом с исполняемым файлом. Попробуйте у себя, может тоже будет работать и никто не будет заниматься такого рода извращениями Выкладываю ссылочку на библиотеки https://drive.google.com/open?id=0B0...TZ0dzczRzJtbWM

[Aliens_wolfs]

Хотя да можно просто переименовать те файлы что я нашел openssleay32.dll и openlibeay32.dll на стандартные названия ssleay32.dll и libeay32.dll

Да то что ты выложил тоже работает, да так проще чтобы в модуль не лесть для замены

[3dik]

ну а все таки было бы прикольно уметь использовать в Delphi библиотеки, написанные в Visual C#

[Aliens_wolfs]

Так а на Visual C по какому принципу интересно тот модуль что у тебя работает?

Почитай про хуки advApiHook через этот модуль можно ловушки ставить и управлять ими. в advApiHook много полезных процедур.

Можно dll управлять с помощью MapView, ReadProcessMemory

[Aliens_wolfs]

Кстати еще нашел как работать с ssl через WinInet http://www.programmersforum.ru/showthread.php?t=280810
код рабочий нужно только подкорректировать по ссылке там на втором посту. У меня заработал

[p51x]

Aliens_wolfs, открою секрет: я на первой странице дал ссылку на офф статью от офф разрабов и wininet'a, и винды. Но вы продалжайте ничего не читать и флудить, пока модераторы добрые...

[Aliens_wolfs]

Извиняюсь, что да невнимательный я действительно нашел в посте #8, ссылка непонятно описана, видимо и не обратил внимание, тем более даже автор прошел видимо мимо вашей ссылки либо не понял ее, а вот интересно какой способ наиболее эффективный. А здесь я флудом не занимаюсь, пытаюсь подробнее все описывать что бы люди вникали не все же профессионалы и могут сразу по намекам разбираться, да и самому интересно иногда попробовать свои силы в решениях, тем более многое что нужно для себя. Все ладно больше писать не буду)

[FaTaL]

Уважаемые форумчане. Тема называется "DLL из Visual C# в Delphi 2010". А вы тут уже совешенно другое обсуждаете.
ТС создай новую тему.