Affectation d'un champs blob dans une var de type TStrings
Salut à tous,
Je dois effectuer des traitements sur un champs blob de ma table sous Firebird 1.5
Je recupère ce champs grâce à une procedure stocké. Pour plus de clarté
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
Type TBlobTraitement = class
FLines : TStrings
....
....
public
constructor create(....);
destructor Destroy;
procedure Traiter;
....
end;
.....
constructor TBlobTraitement.Create(....);
begin
inherited;
FLines := TStringList.Create;
end;
detsructor TBlobTraitement.Destroy;
begin
FLines.Free;
Inherited;
end; |
Mon problème : comment affecté le text du champs blob recupérer avec la procedure stocké dans le champs FLines;
Si j'utilise un TMemo, j'ai aucun problème à faire comme ceci :
Code:
1
2
|
Memo1.Text := IbProc.paramByName('BLOBFIELD').Asstring; |
Si j'applique cette code j'obtiens ceci :
Code:
1
2
|
FLines.text := IbProc.paramByName('BLOBFIELD').Asstring; |
Mais je constate que c'est pas la valeur attendu qui est dans FLines car la methode traitement me donne des truc bizarre.
Aidez moi svp
Andry
