Привет всем! У меня такая проблема, написал программу для удалённого просмотра рабочего стола, использовал idtcpserver и idtcpclient. Клиент работает нормально, а вот сервер... Короче такие дела, когда я его сканирую антивирусом(сервер), то всё чисто, а когда запускаю то пишет что программа заражена и файл удаляется. Объясните мне почему это происходит и как это исправить?
вот код программы:
procedure jpg (Connection: TIdTCPServerConnection);
var
stream: TMemoryStream;
BitMap :TBitMap;
jpeg : TJPEGImage;
begin
BitMap := TBitMap.Create;
BitMap.Width := Screen.Width;
BitMap.Height:=Screen.Height;
BitBlt(BitMap.Canvas.Handle, 0,0, Screen.Width, Screen.Height, GetDC(0), 0,0,SRCCOPY);
if not DrawIcon(Bitmap.Canvas.Handle,Mouse.CursorPos.X,Mouse.CursorPos.Y,GetCursor) then
begin
end;
try
jpeg:= TJPEGImage.Create;
jpeg.Assign(BitMap);
jpeg.CompressionQuality := 30;
jpeg.Compress;
stream:=TMemoryStream.Create;
jpeg.SaveToStream(stream);
Connection.WriteStream(stream,True, True);
stream.Clear;
stream.Free;
bitmap.Free;
jpeg.Free;
except
end;
end;
Ну как я понимаю то антивирус, при попытке соединения idtcpserver`a, думает что это вирус.
И если можно то поподробнее а то я только недавно начал изучать делфи, и ещё не очень понимаю!
Заранее спасибО!
а и ещё, можно ли написать службу для передачи файлов? я пробовал так: создал службу, кинул на неё idTCPServer прописал передачу файла через TMemoryStream и создал клиент, оно всё соединяется но только файл не передает! пишет вот такое "Connection Closed Gracefully". Объясните пожалуйста как сделать?
__________________
Все великие дела начинаются со слов "Ну ладно, х@й с ним, давай попробуем..."