передача файлов

← →
Akni (2003-04-28 17:59) [0]

Добрый день, Мастера!

Передаю файл с пом. Сокет-компонентов в неблок. режиме.
Клиент посылает файл серверу таким образом:

Var fStream: TFileStream;
iSize: integer;
iCode: integer;
….

try
try
fStream:=TFileStream.Create(fName,fmOpenRead);
iSize:=fStream.size;

iCode:=cdFILE; //тип данных
fClientSocket.Socket.SendBuf(iCode, SizeOf(iCode));

fClientSocket.Socket.SendBuf(iSize, SizeOf(iSize)); //размер данных (файла)
fClientSocket.Socket.SendStream(fStream); //сам файл
except
on E:Exception do
begin
fLogStr:=E.Message;
Synchronize(WrLog);
PostMessage(fHandle,wm_RefreshClients,cdERROR,0);
end;
end;
finally
fStream.Free; // <----- здесь получаю AV
end;

Данные отправляются (и даже принимаются на сервере) в полном размере, но на строке fStream.Free получаю AV.
Подскажите, пожалуйста, в чем может быть дело?

← →
Anatoly Podgoretsky © (2003-04-28 18:15) [1]

Для начала попробуй поместить fStream:=TFileStream.Create перед самым первым try

← →
Akni (2003-04-28 18:27) [2]

1. Попробовала. Не помогло.

2. Попробовала еще такой вариант:

fStream:=TFileStream.Create(fName,fmOpenRead);
iSize:=fStream.size;

fStream.Free;

iCode:=cdFILE;
fClientSocket.Socket.SendBuf(iCode, SizeOf(iCode));
fClientSocket.Socket.SendBuf(iSize, SizeOf(iSize));
fClientSocket.Socket.SendStream(TFileStream.Create(fDat.fClientName,fmOpenRead));
это работает. Но, по-моему, «коряво» это как-то – создавать поток только для того, чтобы размер узнать, а потом еще один, чтобы сам файл послать.
Может, можно это как-то унифицировать?

← →
$hade © (2003-04-29 08:39) [3]

а случаем
fClientSocket.Socket.SendStream(fStream);
не закрывает файл сам?
попробуй после этой строки сделать например
fStream.seek(0,0)...

← →
Sheriff (2003-04-29 10:47) [4]

Note: The Stream passed as a parameter to SendStream becomes “owned” by the windows socket object. The Windows socket object frees the stream when it is finished with it. Do not attempt to free the stream after it has been passed as a parameter.

хыы...ну я же говорил...:-)

передача файлов Найти похожие ветки