procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
stTemp : String;
List : TList;
Loop : Integer;
begin
stTemp :=Athread.Connection.ReadLn;
List:= IdTCPServer1.Threads.LockList;
Try
For Loop :=0 to List.Count-1 do Begin
TIdPeerThread(List.Items[Loop]).Connection.WriteLn(stTemp);
End;
Finally
IdTCPServer1.Threads.UnlockList;
End;
end;
이렇게 서버를 만들구요...
컴파일했더니 알약에서 Gen:Variant.Graftor.95342 실시간 감시가 되네요..
채팅서버로 악성코드가 들어오는건가요? 초보라 넘 어렵군요.. 아님 감시 무시해도 되는건지..
바이러스 방지 해결법이나 방법있음 알려주시면 감사드리겠습니다.. 수고하세요.^^
|