ZEOSLIB ParamByName BLOB NULL INSERT SQLITE
Bonjour, je n'arrive pas à trouver comment je peux spécifier un NULL avec ParamByName pour mon champ img qui est de type BLOB
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 25 26 27 28 29
| With DataBase.zqQuery Do
Begin
Close;
SQL.Text := 'INSERT INTO deltaimg ' +
'(name, img) ' +
'VALUES ' +
'(:name, :img);';
ParamByName('name').AsString := eName.Text;
If Assigned(ImagePNG) Then
Begin
ImageStream := TMemoryStream.Create;
Try
ImagePNG.SaveToStream(ImageStream);
ImageStream.Seek(0, soBeginning);
ParamByName('img').LoadFromStream(ImageStream, ftBlob);
Finally
ImageStream.Free;
End;
End
Else
Begin
ParamByName('img').AsString := '';
End;
Prepare;
ExecSQL;
End; |
J'ai raccourci le SQL, merci d'avance à celui qui me sauvera :mur: