TBitmap->TMemoryStream

@Neal · Регистрация: 14.06.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте, участники форума!
Я пишу программку, которая делает скрин экрана и передает поток Bitmap'а через TIdTCPServer и TIdTCPClient.

Вот участок кода:

C++
1
2
3
4
5
6
    
...
TMemoryStream *mstr = new TMemoryStream();
gBitmap->SaveToStream(mstr);
AContext->Connection->IOHandler->Write(mstr, mstr->Size, false);
...

При выполнении кода выходит ошибка: "No data to read" и подсвечивается строка:

C++
1
AContext->Connection->IOHandler->Write(mstr, mstr->Size, false);

Как я понимаю, передатчик считает, что данных нет.
Но битмап существует! (для проверки сохранил на диск)
Где ошибка? Неправильно записываю битмап в поток??

@Avazart · 20.10.2012, 15:51

Пологаю что

C++
1
2
3
4
5
6
7
8
9
TMemoryStream *MS = new TMemoryStream();
gBitmap->SaveToStream(mstr);
 
MS->Position= 0; /* положение в начало потока */
 
AContext->Connection->IOHandler->Write(MS, MS->Size, false);
 
 
delete MS; // !!!

@Neal · 20.10.2012, 15:58 **[ТС]**

Извините, Avazart, но ваш совет не помог.
Такая же ошибка.
Что делать?? Можно как-нибудь залить TBitmap в буфер (TStrings, TStringsList, TByteDynArray)?
Без сохранения битмапа в файл, конечно, а то как-то по индусски получается =)

@Avazart · 20.10.2012, 16:35

Думаю с TMemoryStream все в порядке... проблема в Инди....

@DefineTrueFalse · 20.10.2012, 16:40

Смотрю, что вуайеризм популярен нынче стал. Что-то у Вас явно не правильно происходит. И возможно даже, что дело не в потоке и не в изображении. Либо приводите код, либо сами его переписывайте, на форуме были примеры передачи изображений по сети.

Сообщение от Neal

Что делать?? Можно как-нибудь залить TBitmap в буфер (TStrings, TStringsList, TByteDynArray)?

Вы сами понимаете, что хотите? Я не понимаю, как это относится к текущей проблеме, но если вас интересует массив из 100500 изображений, то для такого извращения можно использовать векторы.

@Neal · 20.10.2012, 17:01 **[ТС]**

DefineTrueFalse
Я просто рассматриваю возможные варианты передачи.

Вот код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
else if(buffer1 == "SESSIONUPDATE")
{
    TCanvas*tCanvas = new TCanvas;
    Graphics::TBitmap* gBitmap = new Graphics::TBitmap;     
    TRect tRectFrom;
    TRect tRectTo;
    tRectFrom.Left=0; tRectFrom.Top=0; tRectTo.Left=0; tRectTo.Top=0;
    tCanvas->Handle = CreateDC("DISPLAY",NULL,NULL,NULL);
    gBitmap->Width = Screen->Width;
    gBitmap->Height = Screen->Height;
 
    tRectFrom.Right=Screen->Width;
    tRectFrom.Bottom=Screen->Height;
    tRectTo.Right=Screen->Width;
    tRectTo.Bottom=Screen->Height;
    gBitmap->Canvas->CopyRect(tRectTo, tCanvas, tRectFrom);
    TMemoryStream *mstr = new TMemoryStream();
    mstr->Position = 0;
 
    gBitmap->SaveToStream(mstr);
    response = "SCREEN";
    AContext->Connection->IOHandler->Write(mstr, mstr->Size, false);
        // Обычно на эту строку выходит ошибка
    delete mstr;
}
AContext->Connection->IOHandler->WriteLn(response, enUTF8);
AddMemo("SERVER: " + buffer1 + " = Response: " + response);

@Avazart · 20.10.2012, 17:03

И в какие места засоВуВать ваш код-наплакал?

@Neal · 20.10.2012, 17:06 **[ТС]**

Сообщение от Avazart

И в какие места засоВуВать ваш код-наплакал?

Простите, не понял смысла...

@DefineTrueFalse · 20.10.2012, 17:06

Сообщение от Neal

C++
1
2
3
4
5
6
TMemoryStream *mstr = new TMemoryStream();
mstr->Position = 0;
gBitmap->SaveToStream(mstr);
response = "SCREEN";
AContext->Connection->IOHandler->Write(mstr, mstr->Size, false);
delete mstr;

Позиция в потоке задается после сохранения в нее изображения! Далее, сейчас буду по коду добавлять комментарии.

@Neal · 20.10.2012, 17:10 **[ТС]**

Сообщение от DefineTrueFalse

Позиция в потоке задается после сохранения в нее изображения!

Извините, не работал с потоками..
То есть, нужно установить mstr->Position = 0; ??
Если да, проблем не возникнет. Если нужно поставить позицию в конец потока... то тут я буду долго чесать репу =)

@Avazart · 20.10.2012, 17:12

Мда писал что даром

... бесплатно и бесполезно...

Сообщение от Avazart

Пологаю что

C++
1
2
3
4
5
TMemoryStream *MS = new TMemoryStream();
gBitmap->SaveToStream(mstr);
MS->Position= 0; /* положение в начало потока */
AContext->Connection->IOHandler->Write(MS, MS->Size, false);
delete MS; // !!!

@DefineTrueFalse · 20.10.2012, 17:20

Сообщение от Neal

tCanvas->Handle = CreateDC("DISPLAY",NULL,NULL,NULL);

Очень сильное извращение. При создании DC обычно используют метод CreateCompatibleDC, а не с нуля с нулевыми параметрами. Мне даже трудно представить, как это работает для выполнения Вашей задачи, ибо в данном случае нужно получать, а не создавать еще один дескриптор.

Сообщение от Neal

C++
1
2
TCanvas*tCanvas = new TCanvas;
Graphics::TBitmap* gBitmap = new Graphics::TBitmap;

Инициализация происходит, а освобождение памяти где?

Добавлено через 5 минут

Сообщение от Neal

То есть, нужно установить mstr->Position = 0; ??

Вам Avazart, даже указал, где это делается. Будьте внимательней. Я бы предложил Вам вначале разобраться отдельно с каждым компонентом, а уже потом их использовать в "комплекте".

Касательно этого момента, поясню. После записи изображения в поток, позиция в потоке = позиции до + размер исходного изображения, т.е. если вы только создали поток, то исходная позиция =0 и помещаете в него изображение размером = 1000, то позиция после сохранения = 0 + 1000 = 1000.
Далее, вы пытаетесь передать содержимое потока по сети, но из-за того, что у вас позиция в потоке равна его размеру, то передавать нечего, поэтому и возникает ошибка.

@Neal · 20.10.2012, 17:32 **[ТС]**

Сообщение от Neal

DefineTrueFalse

Спасибо, разобрался!)
Нужно всего-то перед передачей установить Position в 0!
Уряяя!)

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@Neal 83 / 78 / 14 Регистрация: 14.06.2012 Сообщений: 261
	20.10.2012, 15:58 [ТС]
	Извините, Avazart, но ваш совет не помог. Такая же ошибка. Что делать?? Можно как-нибудь залить TBitmap в буфер (TStrings, TStringsList, TByteDynArray)? Без сохранения битмапа в файл, конечно, а то как-то по индусски получается =) 0

@Avazart 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	20.10.2012, 16:35
	Думаю с TMemoryStream все в порядке... проблема в Инди.... 0

@Avazart 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	20.10.2012, 17:03
	И в какие места засоВуВать ваш код-наплакал? 0