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

[heydar110]

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

[hoseinquest]

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

[مرد مباح]

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

[SORUSHMA]

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.