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

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

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

Переслать текст+картинка по сети [D6, Win95/98]

ALeshka © (2002-10-29 22:25:00)
Привет, мастера.Кто сможет помочь?Уже который день пытаюсь отправить текст+картинка из RxRichEdit с одной машины на RxRichEdit другой, но ничего не получается. Я использую ServerSocket/ClientSocket.Считываю в поток, из него и отправляю. На машине клиента все передается хорошо, если без картинки, а стого места , где картинка пишет всякую ерунду.Может кто пожет?

Digitman (2002-10-31 12:53:00) [1]
ты вообще читал описание на метод TCustomWinSocket.SendStream() ?

Ghost. (2002-10-31 12:40:00) [2]
сархивируй перед отправкой..че по сети огромные файлы гонять и все получится

Aleshka (2002-10-30 21:22:00) [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 данные передаются лишь до того места, где стоиткакая-нибудьформула или картинка.

izhalex (2002-10-30 09:32:00) [4]
Или попробуй NMStrm из FastNet. Пример пересылки картинки ОЧЕНЬ прост и лежит в Demos :)

Malder (2002-10-30 00:10:00) [5]
Не знаю как другие, а я вот лично ничего не понял.

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

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

Наверх

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