Текущий архив: 2002.08.29;
Скачать: CL | DM;

Вниз

Опять проблемы с сокетами...   Найти похожие ветки 

← →
Fenix   (2002-06-20 16:48) [0]

Привет всем!
У меня тут у программы-получателя появляется
ошибка(error read stream - или что-то в этом духе) на строчке if myfile.CopyFrom(MySocket,4) = 0 then break;
Помогите найти ошибку, плиз!!!!
Вот код отправки:

procedure TForm1.SendFile(filename: string);
var
src: TFileStream;
MySocket: TWinSocketStream;
begin
MySocket := TWinSocketStream.Create(ClientSocket1.Socket,20000);
src := TFileStream.Create(filename,fmOpenRead);
MySocket.CopyFrom(src,src.Size);
src.Free;
MySocket.Free;
end;

А вот код получения:

procedure TMyServerThread.ClientExecute;
var MySocket: TWinSocketStream;
myfile: TFileStream;
begin
// открываем файл, в который будем записывать полученные данные
myfile := TFileStream.Create("received.txt",fmOpenWrite or fmCreate);
// создаем поток для работы с сокетом
// и задаем таймаут 20 сек.
MySocket := TWinSocketStream.Create(ClientSocket, 20000);
// блок защиты от сбоев try..finally
try
// пока соединение не прервано
while (not Terminated) and ClientSocket.Connected do begin
// ждем данных из сокета
if MySocket.WaitForData(20000) then begin
// если из потока MySocket (сокет) в поток dest (файл)
// скопировано 0 байт, то выходим из цикла while
if myfile.CopyFrom(MySocket,4) = 0 then break;
end;
end;
finally
// закрываем поток сокета
MySocket.Free;
// закрываем сокет-соединение
ClientSocket.Close;
// закрываем файл
myfile.Free;
end;
end;

procedure TForm1.ServerSocket1GetThread(Sender: TObject;
ClientSocket: TServerClientWinSocket;
var SocketThread: TServerClientThread);
begin
SocketThread := TMyServerThread.Create(False,ClientSocket);
end;

---

← →
Fenix   (2002-06-20 18:59) [1]

Ну блин помогите же кто-нибудь!

---

Страницы: 1 вся ветка

Текущий архив: 2002.08.29;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.015 c