begin process at 2012 02 12 02:01:14
  Trouver un code source :
 
dans
 

13 commentaire(s) de ghassenus sur des sources sur tout CodeS-SourceS

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

désolé pour ce retard mais j'ai pas eu le temps ces derniers jours

Alors pour tes question une seul réponse:
la bibliothèque JVCL gratuite elle comprend deux composant un pour afficher les image sous format Jpeg ( et autres fromat d'ailleurs) et un composant DBJVIMAge qui agit exactement comme DBimage et il accepte les Jpeg tu trouvera la derniere version stable de cette bibliothèque (600 composants visuels et non-visuels) à l'adresse suivante:
http://sourceforge.net/project/showfiles.php?group_id=45786
Posté le : 19/01/2007 00:45:40

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

pour enregistrer l'image dans la table voici le code
//ceici est la fonction de remplissage amélioté par F0xi
function WriteBlobFile(Table : Ttable; const Field, FileName : string) : boolean;
var blob,fs : Tstream;
begin
  table.edit;
  result := false;
  if (not FileExists(FileName)) or (not Assigned(Table)) then exit;
  blob := nil;
  fs   := nil;
  try
    blob := table.CreateBlobStream(table.FieldByName(Field),bmWrite);
    blob.Seek(0,soFromBeginning);
    try
      fs := Tfilestream.Create(FileName, fmOpenRead or fmShareDenyWrite);
      blob.CopyFrom(fs, fs.size);
  result := true;
    finally
      fs.Free;
    end;
  finally
    blob.Free;
    table.Refresh;
  end;
end;
/// ceci est la procedure à appeler lorsqu'on appui sur le bouton choix d'image!
procedure TAj_ele.OKClick(Sender: TObject);
Var fn:string;
begin
if Opd1.execute then
begin
    fn:=opd1.FileName;
   if not WriteBlobFile(eleve, 'ph', fn) then
      MessageDlg('Erreur d''ecriture du fichier dans la table...',mtWarning,[mbOk],0);
end;
image1.Picture.LoadFromFile(opd1.FileName);
end;


Posté le : 01/01/2007 12:54:51

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

ah voila l'erreur!
utilise la procedure tel qu'elle est mais il faut definir le champ 'Image ' en tant que BLOB (binary) et non un Graphic
car pour Delphi si vou declarer le champs en tant que Graphic il va verifier que c'est une image BMP ou Ico
part contre en le déclarant sous format de (BLOB) vous pouvez mettre ce que vous voulez dedans( avi,mpeg jpeg swf ...)
l'astuce ça sera dans la lecture il vous faudra un conteneur qui permet la lecture des gif et des Jpeg vous trouverer un composant Image qui permet ceci dans la bibléothéque de JVCL
PS:le nom de champ doit être passé à la procedure en String.
j'espére que ça fonctio,nera pour vous  en attendant bonne année à tous les participant! a+
Posté le : 01/01/2007 12:36:45

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

Alors Smail21 ce code est géneral tu peux l'utiliser avec n'importe qu'elle table sans paramétrage spécifique
voici un exemple
on utilise une table paradox dont le nom est "Ma_Table";
le champ Blob a pour nom "img" sur une feuille j'utilise un bouton "Ok" pour introduire une image dans la table et un "Opd1" comme OpenDialog.

voici la procedure pour enregistrer l'image dans la table

procedure TForm1.OkClick(Sender: TObject);
begin
remplir_blob( Ma_Table,opd1,img);
end;
est le tour est joué
;)
de m^me pour la lecture du champ Blob;
Posté le : 26/12/2006 20:43:03

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

je me panche sur le sujet mais une aide sera la bien venue merci
je voudrais ajouter la fonction LoadFromstream à un compsant Activix de Flashpalyer
Posté le : 11/08/2006 18:17:17

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

oui c'est ce que je fait
iln'yas pas de loadfromstrem
peut on transformer ces composant pour ajouter cette propriétés
je sais que c'est un peu delicat mais je crois que c'est fesable
Posté le : 10/08/2006 22:40:38

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

Ok c'est trés bien ça mais puis je par exemple affecter un Stram directement à un Activix (Media Player ou flash) par exemple pour lecture moi ce que je fait c'est sauvgarder stream ds un fichier puis je l'appel par les propriétés du contrôle en question mais ceci me parit peux orthodoxe ;)
Posté le : 08/08/2006 13:30:28

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

@Baltour
merci ça m'aide beaucoup ton travaille à+
Posté le : 08/08/2006 12:37:22

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

Ok merci je l'ai considerer comme un stream
je n'arrive pas encore à maitriser ces streams
Posté le : 08/08/2006 10:42:37

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

Voici la fonction finale: mais j'ai un prb avec le FT.Free je ne comprend pas pourquoi alors de l'aide SVP

function ReadBlobField(Table:TTable;const Field,FileName:String ):String;
var
TF:TBlobField;
Begin
try
  TF:=Table.FieldbyName(Field) as TBlobField;
  TF.SaveToFile(ExtraCtFilePatH(Application.ExeName)+ FileName);
  result:=ExtraCtFilePatH(Application.ExeName)+ fileName;
finally
  //TF.Free;
end;
End;

ça marche trés bien sans le Free sinon ça bloque
Posté le : 07/08/2006 19:38:00

1 2


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,106 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales