Посылаем файл!!!! [D7, XP]
Ламер 2.Х © (2007-01-07 21:36:00)
Помогите, пожалуйста, найти ошибку файл полностью не
приходит(скорее всего вообще не проходит)?
procedure TFileSend.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
s, sl, NameOfFile: string;
i: integer;
begin
s:= Socket.ReceiveText;
if Reciving then
begin
fs.Write(s[1], length(s));
if fs.Size=DataSize then
begin
fs.Free;
Reciving:=false;
Application.MessageBox('Файл отправлен', 'Сообщение');
ClientSocket1.Active:= false;
end;
exit;
end;
if copy(s, 1, 5)='Size:' then
begin
sl:=copy(s, 6, Pos(#0, s)-6);
DataSize:=StrToInt(sl);
Delete(s, 1, Pos(#0, s));
NameOfFile:= copy(s, 1, Pos(#0, s)-1);
showmessage(copy(s, 1, Pos(#0, s)-1));
Delete(s, 1, Pos(#0, s));
for i:= Length(NameOfFile) downto 1 do
if NameOfFile[i] = '\'
then
begin
NameOfFile:=
copy(NameOfFile,i+1,Length(NameOfFile)-i);
showmessage (nameoffile);
end;
Reciving:=true;
fs:=TFileStream.Create(NameOfFile,fmCreate);
fs.Write(s[1], length(s));
end;
end;
Dmitrij_K (2007-01-07 22:30:00) [1]
Отладчик тебе для чего?
Проверяй какие данные приходят, как опи разбираются.
Наверх 
ЧАТ |
Орешник |
|
