قرار دادن عکس در بانک access

[Saeid59_m]

سلام
یه عکس رو چطور می شه توی فیلد بانک Access ‌جای داد . با توجه به اینکه با Ado ‌وصل شده ایم .

ممنون

[Valadi]

جستجو کن چون قبلا دوستان بحث کردند
موفق موید باشی

[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.

[Saeid59_m]

اگه ممکنه یه نمونه برنامه بگذارید
ممنون

[Saeid59_m]

راهش رو پیدا کردم یه نمونه خوب توی سایت آقای احدی بود

اینم فایلش برای بقیه دوستان

[babak869]

برای قراردادن عکس در بانک پارادوکس و SQL Server 2000 هم نمونه هایی در سایت هست میتونید دریافت نمایید

http://www.Delphi-Magic.com/source.php

موفق باشید