Программа работает отлично без прокси но при попытки подключить прокси возникает ошибка. подскажите в чем проблема. инди стоит 9. дельфи 7
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, wininet, IdHTTP, IdSSLOpenSSL, IdTCPConnection, IdTCPClient;
type
TForm1 = class(TForm)
IdHTTP1: TIdHTTP;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Data:TStringList;
Page:String;
implementation
function GetSSLHttp(url, FileName: string; PortNum: integer=443):boolean;
var
http: TIdHTTP;
ssl: TIdSSLIOHandlerSocket;
ms: TMemoryStream;
begin
http := TIdHTTP.Create(nil);
ssl := TIdSSLIOHandlerSocket.Create(http);
ms := TMemoryStream.Create;
http.Port := PortNum;
http.IOHandler := ssl;
try
http.Get(url, ms);
result:=true;
ms.SaveToFile(FileName);
except
result :=false;
end;
ms.Free;
http.Free;
end;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
idHTTP1.ProxyParams.ProxyServer := '127.0.0.1';
idHTTP1.ProxyParams.ProxyPort := 8080;
idHTTP1.ProxyParams.ProxyUsername := '1';
idHTTP1.ProxyParams.ProxyPassword := '1';
GetSSLHttp('https://www', 'куда копируем');
end;
end.
|
|
)