PDA

View Full Version : save عکس در دلفی


hkhelp
یک شنبه 30 فروردین 1388, 09:59 صبح
سلام من مشکلی برای save عکس در دلفی دارم نمیدونم با چه دستوری باید این کار رو انجام بدم میشه لطفا کمکم کنید
mossaferin
یک شنبه 30 فروردین 1388, 13:40 عصر
بیشتر توضیح بده
Felony
یک شنبه 30 فروردین 1388, 16:22 عصر
Image1.Picture.SaveToFile('Adress');
hkhelp
دوشنبه 31 فروردین 1388, 10:12 صبح
مرسی از جواب شما

procedure Tvomf_f.loadClick(Sender: TObject);
begin
if OpenDialog1.Execute then
if ExtractFileExt(OpenDialog1.FileName) = '.bmp' then
Image1.Picture.Bitmap.LoadFromFile(OpenDialog1.Fil eName)
else
Image1.Picture.LoadFromFile(OpenDialog1.FileName )
end;

من این دستور رو نوشتم و در قسمت append نوشتم image1.picture اما برای null,sql میفرسته
vcldeveloper
دوشنبه 31 فروردین 1388, 12:15 عصر
if ExtractFileExt(OpenDialog1.FileName) = '.bmp' then
Image1.Picture.Bitmap.LoadFromFile(OpenDialog1.Fil eName)
else
Image1.Picture.LoadFromFile(OpenDialog1.FileName )
هر دو حالت شرط فوق یک کار انجام میدن و نیازی نیست شما یک بار با Picture.Bitmap و یک بار با Picture این کار را بکنید. هما Picture.LoadFromFile کفایت میکنه.


من این دستور رو نوشتم و در قسمت append نوشتم image1.picture اما برای null,sql میفرسته
برای ارسال داده عکس به بانک اطلاعاتی از اون روش استفاده نمیشه. باید یا از DBImage بجای Image معمولی استفاده کنید، یا مستقیما از TBlobField. هر کدام را که در این تالار جستجو کنید، درباره شان توضیح داده شده.