VPF::подскажите где ошибка? - Форум программистов

werum

Дата 27.1.2009, 16:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 19.1.2009

Репутация: нет
Всего: нет

Программа работает отлично без прокси но при попытки подключить прокси возникает ошибка. подскажите в чем проблема. инди стоит 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.

SneG0K

Дата 27.1.2009, 16:53 (ссылка)

(нет голосов)

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 2
Всего: 54

Какая ошибка?

Данкинг

Дата 27.1.2009, 16:53 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

Цитата(werum @ 27.1.2009, 16:50

)

возникает ошибка

Ы ?

--------------------

There's nothing left but silent epitaphs.

werum

Дата 27.1.2009, 17:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 19.1.2009

Репутация: нет
Всего: нет

да вот прикрепил скрин

Присоединённый файл ( Кол-во скачиваний: 13 )

__________.JPG 14,42 Kb

werum

Дата 27.1.2009, 17:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 19.1.2009

Репутация: нет
Всего: нет

Цитата(SneG0K @ 27.1.2009, 16:53

)

Какая ошибка?

Цитата(Данкинг @ 27.1.2009, 16:53

)

Ы ? smile

текст ошибки я прикрепил. на всякий прикрепил весь проект

Присоединённый файл ( Кол-во скачиваний: 3 )

0.2.rar 538,23 Kb

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »