간단히 만들어 봤는데.....

온라인상으로 직접 코딩을 하다보니 제대로 동작 하는지 몰르겠네여.......^^;;;

핑을 해주는 컴포넌트는 님이 임의로 하시면 됩니다.

다만 결과 값을 String으로 받게 했는데, 님이 원하는 타입으로 받게끔 고치세여..

그냥 참고만 하세여....



type

TPingCheckThread = class(TThread)

private

FPing: TPing;

protected

procedure Execute; override;

public

FResult: String;

constructor Create(APing: TPing);

function ResultPingTest: String;

end;



procedure TPingCheckThread.Execute;

begin

FPing.Ping;

FResult := ResultPingTest;

end;



constructor TPingCheckThread.Create(APing: TPing);

begin

inherited Create(True);

FreeOnTerminate := True;

FPing := APing;

Resume;

end;



function TPingCheckThread.ResultPingTest: String;

begin

Result := FPing.Result;

end;



procedure TForm1.ThreadPingTest;

var

MyPingTest: TPingCheckThread;

MyPingResult: String;

begin

MyPingTest := TPingCheckThread.Create(Ping);

MyPingResult := MyPingTest.FResult;

end;



조복문 wrote:

> 쓰레드를 구현해야할것같은데요.

>

> Ping 값을 구하면서(ICS 컴포넌트 사용)

> 다른일.(폼 드래그 이동) 할려는데요.

>

> Ping 구할동안 폼도 못 움직이고 가만있으니까 불편해서요.

>

> 이거 해결할려면 쓰레드 써야할 것 같은데...

>

> 간단한 소스라도...부탁드립니다.

>

>

> 델파이5내 소트 쓰레드로는 이해가 부족해서요.