Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.26;
Скачать: CL | DM;

Вниз

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

 
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 данные передаются лишь до того места, где стоиткакая-нибудьформула или картинка.


 
Ghost. ©   (2002-10-31 12:40) [4]

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


 
Digitman ©   (2002-10-31 12:53) [5]

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



Страницы: 1 вся ветка

Текущий архив: 2002.12.26;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.012 c
3-85783
Андрусь
2002-12-03 20:37
2002.12.26
как оптимально обработать разделенный запрос


4-86220
KUZIA
2002-11-12 13:10
2002.12.26
Как написать скринсавер


4-86209
Ixion
2002-11-12 01:20
2002.12.26
Как узнать, что класс окна потомок базового класса ?


1-86036
Ops
2002-12-16 15:29
2002.12.26
Объявление двоичных констант


1-85936
17.12.2002
2002-12-17 15:54
2002.12.26
HTML