PScanner

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

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

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

 

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

 

если тебя смущает вот этот участок кода:

PHP:

addr.sin_addr.S_addr:=inet_addr(PChar(frmMain.edTarget.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 сделаешь раньше чем прога заработает, то она вообще не заработает"

 

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

Code:

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

В потоке

Code:

public
host:string;
port:string;

 

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