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!
Уряяя!)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

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

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

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