Клиент файл принимает но не сохраняет

[D_E_N]

Привет всем. вообщем соеденяется файл вроде принимает но не сохраняет в чем проблема?

program clienttt;
{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils,
  Classes,
  ScktComp;

type
clnSock=class
cln:TClientSocket;
procedure ClientRead_2(Sender: TObject;Socket: TCustomWinSocket);
procedure Writing(Text: string);
public
constructor Create;
destructor Destroy; override;
end;

{clnSock}

  constructor clnSock.Create;
  var
  Receive: boolean; // Режим клиента
  Begin
    inherited Create;
      cln:=TclientSocket.Create(nil);
      cln.clientType:=ctNonBlocking;

      cln.Address:='192.168.1.2';
      cln.Port:=8080;
      cln.OnRead:=ClientRead_2;

       Receive := false;
       cln.Active:=true;  // Режим клиента - приём команд
  End;

      destructor clnSock.Destroy;
  Begin
    cln.Free;
    inherited Destroy;
  End;





procedure clnsock.Writing(Text: string);
var
Name: string; // Имя файла
Size: integer; // Размер файла
Receive: boolean; // Режим клиента
MS: TMemoryStream; // Буфер для файла
begin
writeln('save');
if MS.Size < Size then // Если принято байт меньше размера файла, то...
MS.Write(Text[1], Length(Text)); // Записываем в буфер
// Выводим прогресс закачки файла

if MS.Size = Size then // Если файл принят, то...
begin
Receive := false; // Переводим клиента в нормальный режим
MS.Position := 0; // Переводим каретку в начало буфера

MS.SaveToFile(Name); // Сохраняем файл
cln.Socket.SendText('end'); // Посылаем команду "end", то есть файл принят
MS.Free; // Убиваем буфер

end;
end;


procedure clnSock.ClientRead_2(Sender: TObject;
Socket: TCustomWinSocket);
var
Name: string;
Receive: boolean;
MS: TMemoryStream;
Rtext: string; // Принятый текст
Size: integer;
begin

Rtext := Socket.ReceiveText;
if Receive then // Если клиент в режиме приёма файла, то...
Writing(RText) // Записываем данные в буфер
else // Если клиент не в режиме приёма файла, то...
if Copy(Rtext, 0, Pos('#', Rtext) -1) = 'file' then // Если это файл, то...
begin MS := TMemoryStream.Create; // Создаём буфер для файла
Delete(Rtext, 1, Pos('#', Rtext)); // Определяем имя файла
Name := Copy(Rtext, 0, Pos('#', Rtext) -1); // Определяем имя файла
Delete(Rtext, 1, Pos('#', Rtext)); // Определяем размер файла
Size := StrToInt(Copy(Rtext, 0, Pos('#', Rtext) -1)); // Определяем размер файла
Delete(Rtext, 1, Pos('#', Rtext)); // Удаляем последний разделительйла
writeln(size);
Receive := true; // Переводим сервер в режим приёма файла
Writing(RText); // Записываем данные в буфер

end;
end;




var
  Client1:clnsock;
  Msg:TMsg;


  begin
   client1 := clnSock.Create;
   try
    while GetMessage(MSG, 0, 0, 0) do
      begin
        TranslateMessage(msg);
        DispatchMessage(msg);
      end;
  finally
  readln;
  Client1.Free;
  end;
  readln;
end.

[bill_gates]

procedure clnsock.Writing(Text: string);
var
Name: string; // Имя файла

...

procedure clnSock.ClientRead_2(Sender: TObject;
Socket: TCustomWinSocket);
var
Name: string;

Чтото мне кажется, что он и не будет работать. Может стоит Name занести в глобальные переменные?

...
constructor Create;
destructor Destroy; override;
end;

var Name:String;

{clnSock}

  constructor clnSock.Create;
  var
  Receive: boolean; // Режим клиента
  Begin
...

[D_E_N]

спасибо за помощь.

[D_E_N]

а как сохранить файл рядом с программой? ато сервак передает полный путь например D:\123\123.exe

[bill_gates]

юзай ExtractFilePath(Application.Exename );

Возвращает путь проги

[D_E_N]

вот тока не пойму как её туда прицепить. не подскажешь?

begin
Receive := false; // Переводим клиента в нормальный режим
MS.Position := 0; // Переводим каретку в начало буфера

MS.SaveToFile(Name); // Сохраняем файл
cln.Socket.SendText('end'); // Посылаем команду "end", то есть файл принят
MS.Free; // Убиваем буфер

end;

[Stilet]

MS.SaveToFile(ExtractFilePath(Application.Exename )+Name);

[D_E_N]

не получается. пробовал даже extractfilepath(paramstr(0)) а толку нет получается он добовляет имя файла туда ещё D:\123\*D:\123\123.exe по этому пути он хочет сохранить файл. а можно как нить подредактировать имя передаваемое сервером или даже на сервере убрать лишнее и оставить тока имя файла и расширение?

[Stilet]

не получается

Ну и что мешает узнать что в name содержится и скорректировать верно?

[D_E_N]

мои маленькие познания в delphi. пробовал воттак тока вместо rtext ставил name но не получается подскажи как надо?

Delete(Rtext, 1, Pos('#', Rtext)); // Определяем имя файла
Name := Copy(Rtext, 0, Pos('#', Rtext) -1); // Определяем имя файла
Delete(Rtext, 1, Pos('#', Rtext)); // Определяем размер файла
Size := StrToInt(Copy(Rtext, 0, Pos('#', Rtext) -1)); // Определяем размер файла
Delete(Rtext, 1, Pos('#', Rtext)); // Удаляем последний разделительйла