Переслать текст+картинка по сети

← →
ALeshka (2002-10-29 22:25) [0]

Привет, мастера.Кто сможет помочь?Уже который день пытаюсь отправить текст+картинка из RxRichEdit с одной машины на RxRichEdit другой, но ничего не получается. Я использую ServerSocket/ClientSocket.Считываю в поток, из него и отправляю. На машине клиента все передается хорошо, если без картинки, а стого места , где картинка пишет всякую ерунду.Может кто пожет?

← →
Malder © (2002-10-30 00:10) [1]

Не знаю как другие, а я вот лично ничего не понял.

Код что ли бы привел...

И место, где ошибка. Опиши поподробнее

← →
izhalex © (2002-10-30 09:32) [2]

Или попробуй NMStrm из FastNet. Пример пересылки картинки ОЧЕНЬ прост и лежит в Demos :)

← →
Aleshka (2002-10-30 21:22) [3]

Извините за нечеткое изложение мысли.
А хочу сделать вот что. Клиент посылает команду серверу.
Вот текст сервера.

procedure TForm2.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
sStream : TMemoryStream;
begin

/********
// обработка и выбор команды
// например такой
//*****
sStream := TMemoryStream.Create;
RxRichEdit1.Lines.SaveToStream(sStream);
sStream.Seek(0,soFromBeginning);
Socket.SendStream(sStream);

//*****

end;

Клиент принемает поток и обрабатывает его

procedure TForm1.ClientSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
var
sStream : TMemoryStream;
count :Integer;
buffer: Array [0..$4095] of Char;
begin
try
sStream:=TFileStream.Create;
Socket.Lock;
count:= Socket.ReceiveBuf(buffer,SizeOf(buffer));
if count > 0 then
begin
sStream.WriteBuffer(buffer,count);
end;
Socket.Unlock;
sStream.Seek(0,soFromBeginning);
RxRichEdit1.Lines.LoadFromStream(sStream);
finally
sStream.Free;
end;
end;

В результате в клиентоском rxrichedit-e данные передаются лишь до того места, где стоиткакая-нибудьформула или картинка.

сархивируй перед отправкой..че по сети огромные файлы гонять и все получится

ты вообще читал описание на метод TCustomWinSocket.SendStream() ?

Переслать текст+картинка по сети Найти похожие ветки