Discussion :

[Vulcanos]

Bonjour à tous,

Comment fait-on pour insérer le contenu d'un Memo dans un champ Blob Interbase ?

Si j'écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MonQuery.ParamByName(Champ_Blob).AsBlob    := Memo.Lines;

J'ai un problème de transtypage.

Merci de votre aide.

[Rayek]

Bonjour à tous,

Comment fait-on pour insérer le contenu d'un Memo dans un champ Blob Interbase ?

Si j'écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MonQuery.ParamByName(Champ_Blob).AsBlob    := Memo.Lines;

J'ai un problème de transtypage.

Merci de votre aide.

une solution possible :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Memo.Line.saveTofile('MonFichier.txt');
MonQuery.ParamByName(Champ_Blob).LoadFromFile('Monfichier.txt',ftFmtMemo);

[Vulcanos]

Salut Malatar et merci de ton aide.

J'avais déjà vu cette solution sur le site de John Colibri.
Mais, c'est un peu dommage de passer par un fichier texte, non ?

Je sais que tu vas me dire qu'on peut toujours passer par des API...Et là, ça me fait penser à l'histoire du marteau servant à écraser une mouche...

A+

[Rayek]

Avec Assign tu dois pouvoir le faire aussi, avec une Image pas de problème mais je suis pas sûr avec un memo :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
  if OpenDialog1.Execute then
  begin
    Image1.Picture.LoadFromFile(OpenDialog1.FileName);
    MonQuery.FieldByName('champ_blob').Assign(Image1.Picture.Bitmap);
  end;

Je sais pas si

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  Monquery.FieldBYName('champ_blob').Assign(Memo.Lines);

passera correctement.