Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.031 c
3-85833
Александр11
2002-12-06 10:00
2002.12.26
Пропадают данные в таблицах


3-85790
dimonf
2002-12-05 18:23
2002.12.26
Как переопределить VertScrollBar в DBGrid?


3-85861
KA_
2002-12-05 11:15
2002.12.26
Ошибка Interbase-сервера


3-85795
Wic42
2002-12-06 00:07
2002.12.26
Delphi6-DBF


14-86105
KSergey
2002-12-04 15:18
2002.12.26
Настройка прав доступа к свойствам IE





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский