یک مشکل ذخیره Image

[سیروس مقصودی]

با سلام

من از Sql Server استفاده مینمایم و برای ثبت و اصلاح اطلاعات در قسمت Store procedure از دستورات Insert و Update استفاده مینمایم . برای ثبت یک تصویر از دستورات زیر استفاده مینمایم .

var
Var_Image: TMemoryStream;
begin
Var_Image := TMemoryStream.Create;
Var_Image.LoadFromFile(masir1);
Var_Image.Size := 0;
TBlobField(Dm.P_ins_master.Parameters.ParamByName( '@vs_pic_stud')).LoadFromStream(Var_Image);
Dm.P_ins_master.exeproc;

ولی با اجرای دستورات بالا پیغام زیر ظاهر میشود لطفا مرا راهنمائی فرمائید .

با تشکر

[Touska]

من از این روش استفاده می کنم :


procedure TForm11.Button1Click(Sender: TObject);
Var
Mem : TMemoryStream; //Add peronel profile to database
begin

IF suiCheckBox1.Checked Then IF suiEdit5.Text <> '' Then
Begin
Mem := TMemoryStream.Create; //Chek if use th image
Image1.Picture.Bitmap.SaveToStream(Mem);
Mem.Position := 0;
End
Else
Exit;


With Data1 Do //Add profile to database
Begin
PersonelTable.Insert;
PersonelTable.Edit;
IF suiEdit5.Text <> '' Then PersonelTablePicture.LoadFromStream(Mem);
PersonelTable.Post;
End;

IF suiEdit5.Text <> '' Then Mem.Free;

Person1.Close;

End;

با این فرق که من قبلا add all fields رو انجام دادم.

[سیروس مقصودی]

اگر بخواهم یک تصویر را فشرده کنم و بعد در فایل ذخیره کنم چه مراحلی را بایستی انجام دهم و همینطور بلعکس اگر بخواهم یک تصویر فشرده شده را بخوانم و نمایش دهم چه مراحلی را بایستی انجام دهم . لطفا مرا راهنمائی کنید .

با تشکر ...

[Touska]

منظور شما از فشرده کردن یعنی copress کردن به صورت jpg هست.

که مشکلی شما عکستون رو به jpg تغییر بدهید و بعد qulity ان را کم کنید و در database ذخیره کنید.

مثالش رو هم قبلا تو سایت گذاشتم.