Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.017 c
14-95969
Nox
2002-08-04 18:51
2002.08.29
<<<Помогите>>>


1-95770
TCrash
2002-08-19 17:17
2002.08.29
Столбцы StringGrid


1-95877
Dinara
2002-08-18 13:24
2002.08.29
Создать Word-документ с таблицей - куда копать?


1-95817
Cr@sh
2002-08-19 07:55
2002.08.29
Выручите с построением линии.


1-95744
Гас
2002-08-16 14:34
2002.08.29
получить доступ к свойствам чужого приложения, например Title