باسلام
من واسه ذخیره عکس تو دیتا بیس (sql) یه جدول دارم به اسم picsample با فیلدای:
id=اتو نامبر
pic=ازنوع ایمیج
رو فرمم این آبجکتارو آوردم :
1-Adoconnection
2-Adotable
3-Adocommand
4-openDialog
5-datasource
6-dbgrid
7-edit
8-2 تا باتون
واسه آدرس دهی وانتخاب عکس از هرجای سیستم از این دستور:
procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit1.Text:= OpenDialog1.FileName;
end;
واسه ذخیره عکس این کد :
procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOCommand1 do
begin
Parameters.ParamByName('pic').LoadFromFile(Edit1.T ext,ftBlob);
CommandText := 'insert into picsample(pic)values(:pic)';
Prepared:=True;
Execute;
end;
ADOTable1.Requery();
end;
procedure TForm1.FormShow(Sender: TObject);
begin
ADOConnection1.Connected:= True;
ADOTable1.Open;
ADOCommand1.Parameters.CreateParameter('pic',ftBlo b,pdInputOutput,0,Unassigned);
end;
الان عکسمون تو بانک ذخیره شده !
ولی من نمیدونم با چه شیئ ی و با چه کدی عکس رو نمایش بدم ...
منظورم همون بازیابی ، با انتخاب هر id عکس نشون داده بشه؟
راستی من این مثال رو از این تایپیک برداشتم :
https://barnamenevis.org/showth...highlight=blob
پاسخ با نقل قول