Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

проблема передачи файлов через сокеты Tserversocket Tclientscoket

Cameron © (2005-09-28 13:20:00)
Здраствуйте уважаемые программеры у меня небольшая проблема так как я не опытный программист. Она состоит в следующем.
Я пытаюсь переслать изображение с формы сервера на форму клиента и всегда возникает ошибка EAccesViolation или EConvertError
Вот обработчики события OnClient read Сервера и клиента.

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
var
Ms:Tmemorystream;
I:integer;
begin
if socket.ReceiveText='send' then
begin
Ms:=TmemoryStream.Create;
image1.Picture.Grafic.SaveToStream(ms);
i:=ms.Size;
buffer:=ms.Memory; // Здесь возникае ошибка
//EConvertError
//а если написать ms.read(buffer,i); Возникнет EAccesViolation.
socket.SendText(inttostr(i));
socket.SendBuf(buffer^,i);
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;

begin
data:=Tmemorystream.Create;
size:=strtoint(socket.ReceiveText);
socket.ReceiveBuf(bufer,size);
data.Write(bufer,size);
image2.Picture.bitmap.LoadFromStream(data);
end;

Помогите объесните как это заставить работать.
Зарание благодарен!!!!!!

Klim (2005-09-29 00:02:00) [1]
Как я понял Buffer это Poiter?
Можно сделать так:
var
buffer:array of byte;
begin
Ms:=TmemoryStream.Create;
image1.Picture.Grafic.SaveToStream(ms);
i:=ms.Size;
setlength(buffer,ms.size);
ms.read(buffer[0],ms.size);
socket.SendBuf(buffer[0],ms.size);
end;

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

Digitman (2005-09-28 15:04:00) [2]
что такое buffer ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »