AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 12 01:46:50
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

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

Le : 19/01/2007 00:45:40
Source : 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

Le : 01/01/2007 12:54:51
Source : 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;



Le : 01/01/2007 12:36:45
Source : 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+

Le : 26/12/2006 20:43:03
Source : 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;

Le : 11/08/2006 18:17:17
Source : 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

Le : 10/08/2006 22:40:38
Source : 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

Le : 08/08/2006 13:30:28
Source : 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 ;)

Le : 08/08/2006 12:37:22
Source : PROCEDURE POUR INTEGRER UN BLOB DANS UNE BASE DE DONNÉES PARADOX
@Baltour
merci ça m'aide beaucoup ton travaille à+

Le : 08/08/2006 10:42:37
Source : 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

Le : 07/08/2006 19:38:00
Source : 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


1


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


Samsung CLX-3175FW Multifunction Laser Colour Printer Laser
Entre 389€ et 469€


Visiter le guide achat

Photothèque Nouveau !

Photo pretty girlsPhoto friends
Photo adolescente plage 

Visiter la 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
Temps d'éxécution de la page : 0,140 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.