Проблема с сокетами

[echelone]

Всем доброго, нужно разработать 2 приложения с сокетами:
1)Передача сообщений(сделал)
2)Передача файлов(ошибка) - прошу помочь.(кому нужно могу отправить исходник)
Вылетает окно с ошибкой:
"List Index out of bounds"
Программынй код:
Серверная часть

procedure TForm1.Button1Click(Sender: TObject);
var
Size: integer;
P: ^Byte;
na : String;

begin
MS := TMemoryStream.Create;// Создаём буфер для файла
MS.LoadFromFile(Edit1.Text); // Загружаем файл в буфер
na := ExtractFileName(Edit1.Text);
ServerSocket1.Socket.Connections[0].SendText('file#'+na+'#'+IntToStr(MS.Size)+'#');
MS.Position := 0; // Переводим каретку в начало файла
P := MS.Memory; // Загружаем в переменную "P" файл
ServerSocket1.Socket.Connections[0].SendBuf(P^, MS.Size); // Посылаем файл
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Active := true;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ServerSocket1.Active := false;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
if Socket.ReceiveText = 'end' then // Если клиент принял файл, то...
begin
StatusBar1.SimpleText := 'Клиент принял файл';
MS.Free;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Size: integer;
P: ^Byte;
na : String;
begin

if OpenDialog1.Execute then begin
MS := TMemoryStream.Create;// Создаём буфер для файла
MS.LoadFromFile(OpenDialog1.FileName); // Загружаем файл в буфер
na := ExtractFileName(OpenDialog1.FileName);
ServerSocket1.Socket.Connections[0].SendText('file#'+na+'#'+IntToStr(MS.Size)+'#');
ProgressBar1.Position := MS.Size*100 div Size;
MS.Position := 0; // Переводим каретку в начало файла
P := MS.Memory; // Загружаем в переменную "P" файл
ServerSocket1.Socket.Connections[0].SendBuf(P^, MS.Size); // Посылаем файл

end;  end;

end.

Клиентская часть:

procedure TForm1.Writing(Text: string);
begin
if MS.Size < Size then // Если принято байт меньше размера файла, то...
MS.Write(Text[1], Length(Text)); // Записываем в буфер
// Выводим прогресс закачки файла
ProgressBar1.Position := MS.Size*100 div Size;
StatusBar1.SimpleText := 'Принято '+IntToStr(MS.Size)+' из '+IntToStr(Size);
if MS.Size = Size then // Если файл принят, то...
begin
Receive := false; // Переводим клиента в нормальный режим
MS.Position := 0; // Переводим каретку в начало буфера
MS.SaveToFile('Dowloads\'+Name); // Сохраняем файл
ClientSocket1.Socket.SendText('end'); // Посылаем команду "end", то есть файл принят
MS.Free; // Убиваем буфер
StatusBar1.SimpleText := 'Файл принят';
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Active := true;

end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
Rtext: string; // Принятый текст
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)); // Удаляем последний разделитель
Label1.Caption := 'Размер файла: '+IntToStr(Size)+' байт'; // Выводим размер файла
Label2.Caption := 'Имя файла: '+Name; // Выводим имя файла
Receive := true; // Переводим сервер в режим приёма файла
Writing(RText); // Записываем данные в буфер
end;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
StatusBar1.SimpleText := 'Соединение установлено';
end;

end.

[Slym]

сюда можно прикладывать файлы. прикладывай.
и задача не понятна
1. посылка от сервера клиенту
2. посылка от клиента серверу
3. посылка файла между клиентами через сервер

[xoodoo]

Работать это в условиях интерсети никогда не будет.
По вопросу почему обратись к Саша40 - он здесь круче всех по этой теме.

[Пепел Феникса]

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

Работать это в условиях интерсети никогда не будет.
По вопросу почему обратись к Саша40 - он здесь круче всех по этой теме.

ой та ладно, все отлично будет работать если сервер доступен, там нет разницы локалка или интернет.
главное чтоб оно в принципе работало, и доступ был к серверу.

[xoodoo]

ой та ладно, все отлично будет работать

Прошу любить и жаловать - еще один саша40

[Пепел Феникса]

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

ой та ладно, все отлично будет работать

Прошу любить и жаловать - еще один саша40

хоть один аргумент что я не прав есть?

[xoodoo]

хоть один аргумент что я не прав есть?

Конечно.
TCustomWinSocket.SentText/SendBuf - функциональные методы, со всеми вытекающими из этого факта последствиями.

[Пепел Феникса]

ну поподробнее же, ну?

код то работать будет, я не говорил что он будет работать так как этого ждет ТС.

[xoodoo]

ну?

Не нукай - не запрягал.

код то работать будет

Не будет.
Достаточно разнести клиент и сервер достаточно "далеко" и попытаться передать одним send-вызовом нечто размером более 8К.