Delphi7

[zwitter]

Question/Problem/Abstract:
I got an error message “bitmap image is not valid”. I try several tips out there, but none of them works. From several tips I found, this is my simple solution:

Why this happen? watch this blob file viewed in hex editor :

1 151C2F00020000000D000E0014002100 ../...........!.
2 FFFFFFFF4269746D617020496D616765 ....Bitmap Image
3 005061696E742E506963747572650001 .Paint.Picture..
4 05000002000000070000005042727573 ...........PBrus
5 6800000000000000000020540000424D h......... T..BM
6 16540000000000007600000028000000 .T......v...(...
7 C0000000DF0000000100040000000000 ................
8 A0530000CE0E0000D80E000000000000 .S..............

MS Access stores some information (for JPEG or other type it also include the path of a linked OLE) in object as part of the object's definition in the OLE object field. Because the definition of OLE object storage is not documented (!? this is straight from MS) there is no way to know what gets written before the actual image data.

Obviously line 2 says the data stream is a "Bitmap Image." I assume in Lines 4-5 that PBrush ("Paintbrush") is the program that should be used to open the file.

The first two bytes of BMP files normally are "BM" or 42 4D in hex, so that it appears that the BMP file starts in line 5, at byte 14 above -- byte 78 within the file.

Download EDBImage in here (http://delphi.icm.edu.pl/)

EDBImage works like TDBImage except :
- It can manage .ico .bmp .wmf .emf .jpg .jpeg. Without a line of code !!!
- Can copy to clipboard .bmp .wmf .jpg .jpeg
- Event OnLoadCustomImage is fired when the image type is unknown, so you can load "any" type of images (gif, tiff, png,....).

Because Bitmap is always start in byte 78 within the BLOB, you can use the OnLoadCustomImage in this way:

procedure TForm1.EDBImage1LoadCustomImage(var B: TGraphic;
Stream: TStream);
begin
B := TBitmap.Create;
Stream.Seek(78, soFromBeginning);
B.LoadFromStream(Stream);
end;

[TAVI$K@R()N]

ок.пасиба папробую. токо нада денег на счет кинуть))

[TAVI$K@R()N]

блин немагу паставить это компонент. наверно руки кривые(( в делфе через component-install component. оно када пытается установить-компилирует и ненаходит целую кучу файлов. шо делать? например ненаходит [Fatal Error] uEDBR.pas(14): File not found: 'GraphicEx.dcu'
и пахожие. в том архивчике ими и непахнет. хееелп миии плиииз

[TAVI$K@R()N]

мож вся проблема в создании таблицы? я создаю таблицу через аксес, в ней делаю 2 поля: первое числовое, второе обьект OLE и в него вставляю картинку. патом сохраняю в парадокс. мож вся проблема в этом? как мне саздать по-другому тааблицу у туда запихнуть картинку? каккую базу создать нада?

[TAVI$K@R()N]

это дело точно е в компоненте а в таблице. у мну получилось вывести картинку такой фигней:

procedure TForm1.Button3Click(Sender: TObject);
var
B: TBitmap;
begin
B := TBitmap.Create;
try
B.LoadFromFile('c:\delphi\images\splashh\athena.bm p');
DBImage1.Picture.Assign(B);
finally
B.Free;
end;
end;

оно все вывело. значит проблема в таблице. а шо эт можеть быть?

[TIGR]

Сообщение от TAVI$K@R()N

мож вся проблема в создании таблицы? я создаю таблицу через аксес, в ней делаю 2 поля: первое числовое, второе обьект OLE и в него вставляю картинку. патом сохраняю в парадокс. мож вся проблема в этом? как мне саздать по-другому тааблицу у туда запихнуть картинку? каккую базу создать нада?

мда.... делать пародоксовскую таблицу через аксесс эт канеша да..... в стандартной поставке БДЕ есть программка которая тебе создаст табличку парадоксовскую(Database Desktop называется) и не нада мучаться, в парадоксе нет такого типа поля как ОЛЕ там есть БЛОБ, и сохранять туда картинку можно примерно так:

Table1.Append;
S:=TFileStream.Create(OpenPictureDialog1.FileName, fmOpenRead);
Table1Pict.LoadFromStream(S);
S.Free;

[TAVI$K@R()N]

датабейс десктоп непотдерживает русския язык и вместо него пишет куляку муляку)

[TIGR]

Сообщение от TAVI$K@R()N

датабейс десктоп непотдерживает русския язык и вместо него пишет куляку муляку)

всё он поддерживает, правильную кодировку надо выбрать в опциях!

[TAVI$K@R()N]

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

[TIGR]

Сообщение от TAVI$K@R()N

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

значит не так ставил если не поставился.... я только что специально для тебя запустил поставил кодировку "Paradox cyrr 866", русский принимает и отображает.

чёта долго ты уже с пародоксом работаешь, загляни на вкладку с компонентами АДО или интербейса... они повеселее

[TAVI$K@R()N]

=) я от хочу перейти на мускул. он вроде покраше будет) сча от качаю учебники буду разбираца)

[Робот Вертер]

Сообщение от TAVI$K@R()N

=) я от хочу перейти на мускул. он вроде покраше будет) сча от качаю учебники буду разбираца)

Попримитивней
Лучше б взял Интербейс или МССКЛ помучал.
Сайбейс в принципе тоже.

[TIGR]

Сообщение от TAVI$K@R()N

=) я от хочу перейти на мускул. он вроде покраше будет) сча от качаю учебники буду разбираца)

мускул наверное лучше в связке с веб программированием использовать уж больно там он распространен... и положительные отзывы читал только об интепрайзной версии.

[TAVI$K@R()N]

я от впринцыпе и без мускула справился) просто саздал даблицу dBase програмно и програмно же наполнил. все пашет отлично) это бока с аксесом были)

[TIGR]

Сообщение от TAVI$K@R()N

я от впринцыпе и без мускула справился) просто саздал даблицу dBase програмно и програмно же наполнил. все пашет отлично) это бока с аксесом были)

так ты хотел создать таблицы в мускуле и потом перевести в парадокс???

[TAVI$K@R()N]

та нет канешна) ты шо. я думал работать с мускулом просто но передумал шото)

[TAVI$K@R()N]

люди надо написать отзыв о программе. я впринцыпе понимаю что писать, но может ктото сталкивался. памагите плиз. срочно