[Interbase] Ecrire le contenu d'un Memo dans un Blob

Bonjour à tous,

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

Si j'écris :

Code:

---

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

---

J'ai un problème de transtypage.

Merci de votre aide.

Citation:

---

Envoyé par Vulcanos

Bonjour à tous,

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

Si j'écris :

Code:

---

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

---

J'ai un problème de transtypage.

Merci de votre aide.

---

une solution possible :

Code:

---

1 2 3

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

---

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+

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:

---

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:

---

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

---

passera correctement.