Récupérer des données binaire d'un LONGBLOB avec libmysql.dll et mysql.pas

Version imprimable

11/01/2007, 08h59
Dj_Will

Récupérer des données binaire d'un LONGBLOB avec libmysql.dll et mysql.pas

Salut à tous,

Voilà alors dans un programme en Delphi je stocke un chaine de caractères représentant des données binaire dans un LONGBLOB et mon problème survient lorsque je veux récupérer ces données : ma chaine est coupée dès que le caractère 0x00 arrive...
J'ai pour le moment réussi à contourner le problème en utilisant la fonction HEX() pour lire mes donnée puis en convertissant logiciellement ma chaine hexadécimale en chaine de caratères...
Celà a tendance à ralentir un peu mon soft, c'est la raison pour laquelle je fais appel à vous pour savoir s'il n'existerai pas une fonction mysql permetant de récupérer directement une chaine incluant des caractères nuls.
Après avoir déja discuté de ce problème dans la rubrique Mysql du forum, il en ressort que le problème ne vient apparement pas de Mysql mais de la façon dont j'utilise Delphi. Peut être que l'API Mysql de Delphi (libmysql.dll et mysql.pas) n'est pas adaptée pour ce que je veux faire...
Je suis ouvert à toute sollution ;)

Merci d'avance

++
11/01/2007, 18h07
Dj_Will

En fait je viens de trouver tout seul la sollution, je dois transférer mes données dans un PansiChar et non pas dans un string :)

Parcontre à partir je n'arrive pas à passer du PansiChar à un Stream, auriez vous une sollution pour ça ??

Comme quoi la persévérence ça paye, j'ai finalement résolu mon problème ! :mrgreen:

Je prends la peine de poster ma solution... on sait jamais, ça peut toujours servir à quelqu'un :)

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
30
31
procedure TformMain.getpicture(name:string);
Var
  stream:TMemoryStream;
begin
  stream:=TMemoryStream.Create;
  if mysql_query(mysqlconnection, pChar('SELECT (picture),length(picture) FROM pictures WHERE name = ''' +name+''';'))=0 then
  begin
    myres:=mysql_store_result(mySQLconnection);
    if myres.row_count<>0 then
    begin
      myrow:=mysql_fetch_row(myres);
      Stream.Size := StrToInt(myrow^[1]);
      Move(myrow^[0]^, PChar(Stream.Memory)[0], Stream.Size);
      stream.Seek(0,0);
      Jpg.LoadFromStream(stream);
      BmpDst.Assign(Jpg);
      Image_user.Picture.Bitmap := BmpDst;
      Image_user.Visible:=True;
    end
    else
    begin
      Image_user.Visible:=False;
    end;
    mysql_free_result(myres);
  end
  else
  begin
    Image_user.Visible:=False;
  end;
  Stream.Free;
end;

A bientôt !

11/01/2007, 21h18
qi130

Merci ! :ccool: