نحوه آوردن و ذخيره سازي عكس در بانكهاي اطلاعاتي رو توضيح بدهيد

درخواست كمك فوري ي ي ......اگه ممكنه نحوه آوردن و ذخيره سازي عكس در بانكهاي اطلاعاتي دلفي رو توضيح بدهيد يا سايت معرفي كنيد اگه فارسي باشه ممنون مي شم.

سلام. اتفاقا همین الان داشتم در این مورد تو گوگل سرچ میکردم. برو به این آدرس بد نیست:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از LoadFromFile بايد استفاده بكني.

procedure TfrmMain.DataSource1DataChange(Sender: TObject; Field: TField);
var
BlobStream: TStream;
JPEGImage: TJPegImage;
Ext: string;
begin
if (Field = nil) or (Field = ADOTable1Image) then begin
if ADOTable1Imagetype.AsString <> '' then begin
BlobStream := ADOTable1.CreateBlobStream(adotable1Image,
bmRead);
try
Ext := UpperCase(adotable1ImageType.AsString);
if Ext = '.BMP' then
Image1.Picture.Bitmap.LoadFromStream(BlobStream)
else if Ext = '.JPG' then begin
JPEGImage := TJPEGImage.Create;
try
JPEGImage.LoadFromStream(BlobStream);
Image1.Picture.Assign(JPEGImage);
finally
JPEGImage.Free;
end;
end;
finally
BlobStream.Free;
end;
end else
Image1.Picture := nil;
end;
end;
procedure TfrmMain.btnLoadImageClick(Sender: TObject);
begin
if OpenPictureDialog1.Execute then begin
ADOTable1.Edit;
adotable1ImageType.AsString :=
ExtractFileExt(OpenPictureDialog1.FileName);
adotable1Image.LoadFromFile(OpenPictureDialog1.Fil eName);
end;
end;
procedure TfrmMain.btnClearImageClick(Sender: TObject);
begin
Image1.Picture := nil;
end;
procedure TfrmMain.btnLoadAttachmentClick(Sender: TObject);
begin
if OpenDialog1.Execute then begin
adotable1.Edit;
adotable1AttachedFile.AsString := OpenDialog1.FileName;
adotable1Attachment.LoadFromFile(OpenDialog1.FileN ame);
end;
end;
procedure TfrmMain.btnSaveAttachmentClick(Sender: TObject);
begin
if SaveDialog1.Execute then
adotable1Attachment.SaveToFile(SaveDialog1.FileNam e);
end;
end.