PScanner

[W!z@rD]

Целью написания данной проги было изучение Потоков на основе класса TThread...
Цель считаю выполненной )))
с сорцами... BDS 2006

Бинарник:
http://tcpv.narod.ru/Downloads/PScanner/PScanner.7z

Исходник:
http://tcpv.narod.ru/Downloads/PScanner/PScanner_scr.7z

[gemaglabin]

Не работай в потоке с vcl

[W!z@rD]

Не работай в потоке с vcl
если тебя смущает вот этот участок кода:
addr.sin_addr.S_addr:=inet_addr(PChar(frmMain.edTa rget.Text));

то он тоже меня немного смущает... но работает

(знаю что для работы с VCL нодо юзать Synchronize)

кстати по нажатии на "?" должно было быть сообшение типа:

PScanner v 1.0*betta
coded by:
W!z@rD

For: www.antichat.ru

Greetz to:
[sL1p], GreenBear, +toxa+, tclover, FQziT, Ypcyla, RemaerD,
PEPSICOLA, k1b0rg, n-e-r-d, _Great_, gemaglab1n, Puff, KoTeG.
ASSCOL, ZerRider, ncux, r12u

made in Kz (Karaganda) 2007

забыл извиняюсь ))) Просто у меня кодерская-примета:
"если about сделаешь раньше чем прога заработает, то она вообще не заработает" ;)

[gemaglabin]

Создавай поток так


with YourThreadName.Create(true) do begin
Host := Edit1.Text;
Port := Edit2.Text;
Resume;
end;


В потоке


public
host:string;
port:string;

[W!z@rD]

Гем, а ты сорцы смотрел??? ))) Кстати все рабочее... ;) (*по крайней мере с основной задачей справляется*)