Передача файла с Клиента на Сервер

[Дворник]

Компилируется норм. Как только загружаю файл в буфер, автоматически должна начаться отправка файла (отправка идет от Клиента к Серверу).

Вот Клиент

...
var
Size: Integer;
P: ^Byte;
begin
if OpenDialog1.Execute then

MS := TMemoryStream.Create;
MS.LoadFromFile(OpenDialog1.FileNam e);
ClientSocket1.Socket.SendText('file #'+OpenDialog1.FileName+'#'+IntToSt r(MS.Size)+'#');
MS.Position := 0;
P := MS.Memory;
Size := ClientSocket1.Socket.SendBuf(P^, MS.Size);
ShowMessage('Размер файла: ' + IntToStr(Size));...

Вот Сервер:

...
procedure TForm1.ServerSocket1ClientRead(Send er: TObject;
Socket: TCustomWinSocket);
var
Rtext: string;
begin
Rtext := Socket.ReceiveText;
if Receive then
Writing(RText)
else
begin
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));
Receive := True;
Writing(Rtext);
end;
end;
end;...

Вот ошибкИ:

[alekseiryzhakov]

Ага! Знакомый случай, приятель! Мой тебе совет используй, Indy и поиск по форуму. Ну и в самом Интернете тоже, удачи для отдачи! )

[Дворник]

Сообщение от alekseiryzhakov

Ага! Знакомый случай, приятель! Мой тебе совет используй, Indy и поиск по форуму. Ну и в самом Интернете тоже, удачи для отдачи! )

Огромное спасибо! А может пояснишь чем socket хуже indy?!
А то абосрать то оно всегда проще!!!

[BARNEY]

http://programmersforum.ru/showthrea...E5%E4%E0%F7%E0