자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

Delphi Indy Compressor 에 버그가 있는것 같습니다.

2017.03.26 19:35

우정 조회 수:467

윈도우에서는 정상적으로 잘 돌아가는것이 리눅스에서는 제대로 작동을 하지 않습니다.

 

기존에는 소스가 포함되어 있어서 수정을 해서라도 사용하겠는데, 지금은 텅 비어 있네요.

(C:\Program Files (x86)\Embarcadero\Studio\19.0\source)

 

설치과정에도 소스 포함여부도 보이질 않네요.

 

설치버전은 Delphi 10.2 Tokyo Enterprise 입니다.

 

그리고, 아래는 작동이 윈도우에서는 되나 리눅스에서는 문제가 발견된 소스입니다.

 

program test;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, IdHTTP, IdCompressorZLib, IdZLibCompressorBase, IdSSLOpenSSL, IdSocks;

var
  IdHTTP: TIdHTTP;
  IdZLib: TIdZlibCompressorBase;
  IdIOHandler: TIdSSLIOHandlerSocketOpenSSL;
  IdSocks: TIdSocksInfo;
begin
  IdHTTP := TIdHTTP.Create(nil);
  IdIOHandler := TidSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
  IdSocks := TIdSocksInfo.Create(IdHTTP);
  IdZLib := TIdCompressorZlib.Create(IdHTTP);

  IdHTTP.IOHandler := IdIOHandler;
  IdHTTP.Compressor := IdZLib;
  IdIOHandler.TransparentProxy := IdSocks;

  IdHTTP.Request.Accept := 'text/html';
  IdHTTP.Request.AcceptEncoding := 'gzip, deflate';
  IdHTTP.Request.AcceptLanguage := 'ko-KR';
  IdHTTP.Request.Connection := 'Keep-Alive';
  IdHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64)';

  WriteLn(IdHTTP.Get('http://www.embarcadero.com/'));

  IdSocks.Free;
  IdIOHandler.Free;
  IdZLib.Free;
  IdHTTP.Free;
end.

이 게시물을
목록