Voila je n'arrive pas a envoyer une Photos dans ma table
alors aprés avoir chercher j'ai trouver ce code mais quand je veut charger l'image il me dit
Table champ '' non trouvée.
je vous donne le code.
--procedure TForm1.remplirblob( var table:Ttable;opd:TOpenPictureDialog;Photos:string);
//champ designe le champs de la table alloué au BLOB
var blob,fs:Tstream;
begin
blob:= Table.CreateBlobStream(Table.FieldByName(Photos),bmWrite);
try
blob.Seek(0,soFromBeginning);
fs:= Tfilestream.Create(opd.FileName,fmOpenRead or fmShareDenyWrite);
try
blob.CopyFrom(fs, fs.size);
finally
fs.Free;
end;
finally
blob.Free;
end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var ImgExt : string;
begin
remplirblob(Table,opd,ImgExt);
end;
