مشکل در نمایش فیلد تصویر درون DBImage

[babila]

من وقتی داخل یک DBImage می خواهم تصویر رانمایش دهم ارور زیر نمایان میشود
Bitmap Image is not valid
حتی وقتی از دیتابیس مثال خود اکسس نیز استفاده می کنم باز همین ارور رو میده
لازم به توضیح است که از Access و ADO استفاده میکنم
در صورت امکان راهنمائی کنید.
متشکرم

[hadavinia]

فکر می کنم شما برای این کار باید دیتابیس را از تصویر خالی نمایید
بعد دیتابیس را توسط دلفی باز نمایید ویک dbimage قرار دهید تصویر را در پینت کپی
و در db image با استفاده از ctrl+v پیست نمایید

[دنیای دلفی]

ابتدا مطمئن بشوید که فایل تصویر شما باید BITMAP باشد و اگر نیست باید آن را به BITMAP تبدیل کنید
یا اینکه از کامپوننت ImageEn استفاده کنید

[dadvand]

تصویری که در دیتابیس شما هست از نوع bitmap باید باشد .

[Touska]

اگر تصویر شما چیزی غیر از Bitmap است به روش دیگری باید آن را ذخیره کنید.

موفق باشید

[m-khorsandi]

اگه میخواهید برنامه تون توانایی ذخیره و نمایش تمام فایلهای گرافیکی (*) رو داشته
باشه پیشنهاد میکنم هم نحوه ذخیره و نمایشتون و هم Component هاتون رو عوض کنید.

[ali_abbasi22145]

سلام

Imageen استفاده کن این ایرادها را ندارد و تقریبا همه فرمتهای تصویری را می گیرد

[prog_2005]

به dbimage از image استفاده کن و اسم اونو بزار adoimage ومراحل زیر را انجام بده
const
jpegstarts='FFD8';
bmpstsrts='424D';
var
bs :TADOBlobStream;
buffer:word;
hx:string;
sdbpath:string;
fs:TFileStream;
pic:TJPEGImage;

function jpegstartsinblob(picfield:tblobfield):integer;

var
bs :TADOBlobStream;
buffer:word;
hx:string;
begin
result:=-1;
bs:=TADOBlobStream.Create(picfield,bmread);
try
while(result=-1) and (bs.position+1<bs.size)do
begin
bs.readbuffer(buffer,1);
hx:=inttohex(buffer,2);
if hx='FF'then begin
bs.readbuffer(buffer,1);
hx:=inttohex(buffer,2);
if hx='D8'then result:=bs.position-2
else if hx='FF' then
bs.position:=bs.position-1;
end;
end;
finally
bs.free;
end;
end;
برای ذخیره کردن تصویرکد زیر را بنویس
spicpath:='pic\1.jpg';

fs:=TFileStream.Create(spicpath,fmopenread);

try

adotable3pic.LoadFromStream(fs);
adotable3.Post;
finally
fs.free;
end;
این کد هم برای نمایش تصویر استفاده کن
bs:=TADOBlobStream.Create(ADOTable3pic,bmRead);
try
bs.Seek(jpegstartsinblob(ADOTable3pic),sofrombegin ning);
pic:=TJPEGImage.Create;
try
pic.LoadFromStream(bs);
adoimage.Picture.Graphic:=pic;
finally
pic.Free
end;
finally
bs.Free;
end;

[pedar47]

سلام
من یه مشکل دارم
با نرم افزار longtion application builder وقتی میخام یک dbimage بذارم میگه Bitmap Image is not valid در حالی که عکسم فرمتش bitmape
لطفا کمکم کنید نیاز دارم