Procedure pour integrer un blob dans une base de données paradox

Commenter

Contenu du snippet

Ceci est ma premiére source sur delphifr
c'est une procedure qui permet d'integrer un fichier quelconque(sous sa forme binaire) (BLOB)dans une base de données paradox
j'utulise un TOpenDialogue pour récuperer le fichier en question
( pour cet exemple j'utlise un TOpenPictureDialogue lais rien n'empeche d'utiliser un TOpenDialogue classique avec le filtre souhaités)

Source / Exemple : 


procedure remplir_blob( var table:Ttable;opd:TOpenPictureDialog;champ:string);
//champ designe le champs de la table alloué au BLOB
var blob,fs:Tstream;
begin
blob:=table.CreateBlobStream(table.FieldByName(champ),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;

Conclusion :


vos commentaires sont les bien venues

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.