Скачать: CL | DM;

Посылаем файл!!!!   Найти похожие ветки 

← →
Ламер 2.Х ©   (2007-01-07 21:36) [0]

Помогите, пожалуйста, найти ошибку файл полностью не приходит(скорее всего вообще не проходит)?

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) [1]

Отладчик тебе для чего?
Проверяй какие данные приходят, как опи разбираются.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c