Вывести картинку имея массив CHAR ?

[ALX_2002]

Доброго дня товарищи. Меня тут товарищь озадачил - Говорит

Есть массив. В массиве хранятся картинки в виде строки CHAR

Нужно их выводить на форму.

Посоветуйте пожалста - чем бы это сделать ?

[GSerg]

В массиве хранится ЧТО?

[ANDLL]

мне вот то же не понятно...
Вообще сохранить массив чаров в файл... И пусть LoadPicture выясняет, что там в этом массиве было, BMP, GIF, JPEG или еще чтото...

[ALX_2002]

Вот я думал я один такой неграмотный и не знаю как это CHAR в массиве. А оказывается это товарисч мой словами непонятными говорит

Я сам бы хотел знать что такое CHAR массив. Подозреваю, что это типа тела файла.

Думал вы меня посвятите в таиснтво смысла слова CHAR

[GSerg]

Что такое CHAR-массив, не имеет никакого значения.
Имеет значение, что в него записали.
Так что в него записали? Сырое бинарное в файловом формате? Декодированное? DIB? DDB?

[ANDLL]

CHAR это 1 байт, это все поняли...
Другое дело что не очень ясно как
а) Узнать размер этого массива
б) Есть много способов хранить картинку на компьютере... Какой тут не очень ясно...

[tyomitch]

А вот лингво для слова char знает аж четыре разных значения.
"1 байт" среди них нет

(ишь как вы меня со своим отравленным космосом зацепили, щас все подряд слова в лингво стал смотреть)

[ANDLL]

Человек эрудированный, читавший главу 1 из любой книги по C++ догадается, о чем тут может говорится

[GSerg]

Lingvo Computers

char
= character

character (= CHR, char)

1) буква, литера
элемент шрифта или кодовой таблицы, задающий букву, цифру или другой символ
(см. тж. ASCII , character frequency , character generator , character height , control character , EBCDIC , Han character , hand-printed character , letter , national characters , Unicode )

2) символ, знак
простой встроенный тип данных в некоторых языках программирования (см. тж. alphanumeric character , character recognition , character set , data type , integer , symbol , word )

3) символьный, текстовый

[ALX_2002]

Товарищи. Чтобы не разводить флуда, я попробую у него всё точнее выяснить

[GSerg]

Давай, давай, спрашивай.
А то будет, как прошлый раз.

[tyomitch]

GSerg, я про значения: "поденная работа", "древесный уголь", "ручьевая форель" и "чай (разг.)"

[jangle]

Код: Выделить всё


'*******************************************************************************
' Класс для загрузки изображений из байтового массива
' Накладыват интерфейсы IStream и IPicture на выделенную область памяти
'*******************************************************************************
Option Explicit
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpsz As Any, pclsid As GUID) As Long
Private Declare Function IsEqualGUID Lib "ole32" (rguid1 As GUID, rguid2 As GUID) As Boolean
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal uFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal dwLength As Long)
Private Declare Function CreateStreamOnHGlobal Lib "ole32" (ByVal hGlobal As Long, ByVal fDeleteOnRelease As CBoolean, ppstm As Any) As Long
Private Declare Function OleLoadPicture Lib "olepro32" (pStream As Any, ByVal lSize As Long, ByVal fRunmode As CBoolean, riid As GUID, ppvObj As Any) As Long

Private Const sIID_IPicture = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}"
Private Const S_OK = 0
Private Const GMEM_MOVEABLE = &H2

Private Enum CBoolean
  CFalse = 0
  CTrue = 1
End Enum

Private Type GUID
  dwData1 As Long
  wData2 As Integer
  wData3 As Integer
  abData4(7) As Byte
End Type


Public Function CreatePicture(abPic() As Byte) As IPicture
  Dim nLow As Long
  Dim cbMem  As Long
  Dim hMem  As Long
  Dim lpMem  As Long
  Dim IID_IPicture As GUID
  Dim istm As stdole.IUnknown
  Dim ipic As IPicture
  ' получаем размер картинки
  On Error GoTo Out
  nLow = LBound(abPic)
  On Error GoTo 0
  cbMem = (UBound(abPic) - nLow) + 1
  ' Выделяем память
  hMem = GlobalAlloc(GMEM_MOVEABLE, cbMem)
  If hMem Then
    lpMem = GlobalLock(hMem)
      If lpMem Then
      'Копируем байты и разлочиваем область памяти
      MoveMemory ByVal lpMem, abPic(nLow), cbMem
      Call GlobalUnlock(hMem)
      ' Создаем интерфейст IStream
       If (CreateStreamOnHGlobal(hMem, CTrue, istm) = S_OK) Then
        If (CLSIDFromString(StrPtr(sIID_IPicture), IID_IPicture) = S_OK) Then
          ' Создаем интерфейс IPicture из IStream
          Call OleLoadPicture(ByVal ObjPtr(istm), cbMem, CFalse, IID_IPicture, CreatePicture)
        End If
      End If
    End If
  End If
     
Out:
End Function

[ALX_2002]

2 jangle WOW. Не хило.... Попробую ему это предложить.

К сожалению у него мобила заблочена. К вечеру выясню

[GSerg]

jangle
Ты по приведённой чуть выше ссылке ходил?
А ты сходи.

[Dexion]

Привет всем.... я как раз тот человек которому по этой проблеме требуется помощь ....
Суть описываю ...
Есть dll-ка написаная на BC++ , в ней происходит получение картинки. получается она декодированием ... есть пример на BC++, получение проходит вот как

Код: Выделить всё

iDecompResult = DCI_DecompressImage(m_DataBlobCopy, m_DataBlob.Size,
                                m_DecompressedData, cDECOMPPICSIZE,
                                DCIStruct, &BmpInfoHdr);

m_DecompressedData - тип char* сюда пишется сама картинка - структура BMP

BmpInfoHdr - сюда заголовок bmp-шки, формат BITMAPINFOHEADER.

Вывод в с++ производится с помощью DrawDibDraw, для скорости я так понимаю

Код: Выделить всё

DrawDibDraw(m_DDH, PaintBox->Canvas->Handle,
              1, 1, PaintBox->Width-1, PaintBox->Height-1,
              &BmpInfoHdr, m_DecompressedData,
              0, 0, BmpInfoHdr.biWidth, BmpInfoHdr.biHeight,
              0)

Мне не нужно ее там выводить а надо передать себе в прогу и отобразить , передаю
1) структуру BITMAPINFOHEADER..
2) массив m_DecompressedData

Теперь у себя (пишу на c# но это не суть) пытаюсь сделать вывод на PictureBox...

так как точно не знаю как что работает , пытаюсь использовать все тот же DrawDipDraw -пока что возникают проблеммы - BufferOwerflowException - стандартная проблема при неверно переданных параметрах, может я ошибаюсь при передаче контекста устройства, но помоему при бередаче массива...
Дело в том что Char в c# занимает 2 байта, а в BC++ 1 байт... мне посоветовали попробовать получать как byte[] но у меня что то с этим немного не получилось .... завтра еще буду пытаться ... какие еще будут идеи??
Огромная просьба тех, кто знает как работает DrawDibDraw , обьяснить что же все таки туда нужно передавать p.s. так как в рабочей программе используется именно эта функция для вывода - то и формат данных для нее подходит - тогда вопрос - можно ли с этими данными использовать другой интерфейс вывода??? и есть ли смысл...

Более подробная инфа есть тут ... http://www.forum.ishodniki.ru/index.php?topic=6477
я там эту тему поднимал

[Andrey Fedorov]

CHAR это 1 байт, это все поняли...

Вообще-то, если CHAR это символ строки (а именно так это воспринимается в данной конференции), то это два байта в памяти, а не один. Ибо уенкод.

Другое дело что не очень ясно как
а) Узнать размер этого массива

См. UBound

б) Есть много способов хранить картинку на компьютере... Какой тут не очень ясно...

Видимо все-же массив байт. Ну а как его вывести вроде уже прописали...

[Antonariy]

Dexion
Скинь массив в файл и посмотри, что он из себя представляет. Для начала.

[Dexion]

Всем спасибо, проблема решена с помощью SetDIBitsToDevice....вопрос решен.. видимо тему можно закрывать