Как работать с https в delphi 7?

Question

[Антон]

Можете подробнее рассказать что нужно для этого и привести примеры с исчепывающими ответами, благодарности не будет предела. Пробовал synapse но ничего хорошего не вышло, гуглил тоже не мало, заранее благодарю!

Answer 1

[svd71]

Не проще ли попробовать сначала было Indy? С SSL, конечно, не пробовал, но вот обычный сервер использовал. Но вроде как там есть необходимые свойства и события для подключения сертификатов.

Comments

[Антон]

svd71 А можно поподробнее с примерами? indy пробовал, не выходило.

Answer 2

[Alexander Kind]

Добрый день,

Используйте Indy. Там все просто, см. ниже. Ну и нужно будет с проектом таскать библиотеки ssleay32.dll и libeay32.dll

uses
   {...}, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, IdIOHandler, IdIOHandlerSocket, IdSSLOpenSSL;

{...}
var
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocket1: TIdSSLIOHandlerSocket;
    response: WideString;
{...}

begin
      {...}
     // create HTTP client with SSL support
    IdHTTP1:=TIdHTTP.Create(nil);
    IdSSLIOHandlerSocket1:=TIdSSLIOHandlerSocket.Create(IdHTTP1);
    IdSSLIOHandlerSocket1.SSLOptions.Method := sslvTLSv1;
    IdHTTP1.IOHandler:=IdSSLIOHandlerSocket1;
    
    response:=IdHTTP1.Post('https://...');
    {...}
end;

По этой ссылке сможете скачать нужные SSL библиотеки: rusfolder.com/39890237. Залил для Вас. Распакуйте и положите в папку с проектом

Успехов!

Comments

[Антон]

@shineblu Спасибо большое, я честно говоря намучился с этими библиотеками, у них ведь много версий, столько перекачал. Сейчас попробую ваше!

[Антон]

Alexander Kind Не выходит, ругается на последнюю строку где response и выдаёт ошибку 302 Found какую бы ссылку не вставил.

А не подскажите где можно найти Indy последней версии для delphi 7, я честно говоря уже пол года пытаюсь найти, а то у меня девятая версия и много кто говорит что в ней полно ошибок и https в ней не работает либо работает, но с костылями. Буду крайне благодарен!

[Alexander Kind]

@Chijikson, все работает, сайт просто пытается переместить Вас на другую страницу (redirect), м.б. для авторизации

По умолчанию редиректы в IdHTTP требуется обрабатывать вручную, но с помощью свойств (после создания объекта):

IdHTTP1.HandleRedirects:=true;
IdHTTP1.RedirectMaximum:=15;

Вы можете включить автоматический переход.

Более подробно Вы можете почитать здесь: stackoverflow.com/questions/6523877/problem-gettin...

Что касается версии Indy - у меня тоже стоит 9я версия, и все работает отлично

Успехов!

[Антон]

@shineblu Спасибо, но я уже ставил редиректы, ошибка не исчезла.

[Alexander Kind]

@Chijikson, я оставил в комментарии ссылку, там во втором посте описано как сделать обработку редиректа. Попробуйте.

IdHTTP1.HandleRedirects := False;
IdHTTP1.OnRedirect := IdHTTP1Redirect;
IdHTTP1.Get('https://');

procedure TForm1.IdHTTP1Redirect(Sender: TObject; var dest: string; var NumRedirect: Integer; var Handled: Boolean; var VMethod: string);
begin
Handled := True;
end;

Answer 3

[svd71]

Это обычный сервер. Вам нужно в датамодуль добавить компоненты ssl хэндлеров и с ними уже экспериментировать.

unit U_HTTPSrv;

interface

uses
  SysUtils, Classes, IdServerIOHandler, IdServerIOHandlerSocket,
  IdServerIOHandlerStack, IdBaseComponent, IdComponent, IdCustomTCPServer,
  IdCustomHTTPServer, IdHTTPServer, IdContext;

type
  TDataModule1 = class(TDataModule)
    IdHTTPServer: TIdHTTPServer;
    IdServerIOHandlerStack: TIdServerIOHandlerStack;
    procedure IdHTTPServerCommandGet(AContext: TIdContext;ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
  protected

  public

  end;

var
  DataModule1: TDataModule1;

implementation

uses
    IdHttp
  , U_Mach4_HTTP
  , T_Mach4
  ;

{$R *.dfm}

function NormalFileName(aFileName: String): String;
begin
  Result := copy(aFileName, 2 ,255);
end;

procedure TDataModule1.IdHTTPServerCommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  FS : TFilestream;
  aFilename: String;
  _messages: String;
  FA: T_FahrauftragRec;
  FAO : T_FahrauftragObj;
  i : Integer;
  pn: String;
begin
        (* ('Req.QueryParams(GET):'+ ARequestInfo.QueryParams);
           ('Req.Document:'+ ARequestInfo.Document);
           ('Req.Params(REQUEST):'+ ARequestInfo.Params.Text);
           ('Req.UnparsedParams(braucht nicht):'+ ARequestInfo.UnparsedParams);
           ('Req.FormParams(POST [ungetrennt]):'+ ARequestInfo.FormParams);   *)      


 with TIdHttp.Create(nil) do
 try
   //if (ARequestInfo.Document = '/ppppp') then
   begin

     if ARequestInfo.Document = '/' then
        ARequestInfo.Document := ARequestInfo.Document + 'form.html';
     aFilename := NormalFileName(ARequestInfo.Document);


    if FileExists(aFilename) then
    begin
      //AResponseInfo.ContentType := GenContType(aFilename); // определяет тип содержимого по расширению запрашиваемого файла *.htm == text/html *.txt == text/plain ну и так далее
      AResponseInfo.ResponseNo := 200;// все успешно
      AResponseInfo.ContentStream := TFileStream.Create(aFileName,fmShareDenyNone);
      Exit;
    end
    else
    begin
//localhost:8080/MB_FA?id=1&lageroperation=1&packung.packungsart=1&packung.artikelcode=A1234567&packung.breite=123,4
      if (ARequestInfo.Document = '/MB_FA') then
        with  T_FahrauftragObj.Create( nil ) do
        try
          FAO := T_FahrauftragObj(ObjInstance);
          for i := 0 to ARequestInfo.Params.Count -1 do
          begin
            pn := ARequestInfo.Params.Names[i];
            FAO.setProperty(pn , ARequestInfo.Params.Values[pn]);
          end;
          AResponseInfo.CustomHeaders.Add('Content-type: text/xml;');  //Content-type: text/xml; charset=utf-8
          AResponseInfo.ContentText := FAO.buildXML('MB_FA');
          exit;
        finally
          Free;
        end;
      if (ARequestInfo.Document = '/MB_WBA') then
        with  T_WBAuftragObj.Create( nil ) do
        try
          FAO := T_FahrauftragObj(ObjInstance);
          for i := 0 to ARequestInfo.Params.Count -1 do
          begin
            pn := ARequestInfo.Params.Names[i];
            FAO.setProperty(pn , ARequestInfo.Params.Values[pn]);
          end;
          AResponseInfo.CustomHeaders.Add('Content-type: text/xml;');  //Content-type: text/xml; charset=utf-8
          AResponseInfo.ContentText := FAO.buildXML('MB_WBA');
          exit;
        finally
          Free;
        end;
    end;
    _messages := _messages+(Format('Client %s:%d trying to get nonexistent file "%s" at %s',[
                            AContext.Binding.PeerIP,
                            AContext.Binding.PeerPort,
                            ARequestInfo.Document,
                            FormatDateTime('yyyy/mm/dd hh:mm:ss', Now)]))+#13#10;
    aFilename := NormalFileName('/404.htm');//выдаем 404 ошибку
//    AResponseInfo.ContentType := GenContType(aFilename);
    AResponseInfo.ResponseNo := 404;
    AResponseInfo.ContentText := 'NoInfo';
    //AResponseInfo.ContentStream := TFileStream.Create(aFileName,fmShareDenyNone);
  end;

 
 finally
   Free;
 end; 

end;

end.

object DataModule1: TDataModule1
  OldCreateOrder = False
  Height = 130
  Width = 185
  object IdHTTPServer: TIdHTTPServer
    Active = True
    Bindings = <>
    DefaultPort = 8080
    IOHandler = IdServerIOHandlerStack
    AutoStartSession = True
    SessionState = True
    OnCommandGet = IdHTTPServerCommandGet
    Left = 64
    Top = 8
  end
  object IdServerIOHandlerStack: TIdServerIOHandlerStack
    Left = 64
    Top = 56
  end
end

Comments

[Антон]

Как-то много кода, не совсем подходит.

[svd71]

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