mysql_ecape_string! Warum stürzt das Ding dabei ab?

[emsländer]

Moin,


ich lese eine Bilddatei in die Variable img ein. Möchte die dann mit mysql_escape_string bearbeiten.

Code:

  img_fs := TFilestream.Create(img_pfad, fmopenread);
  img_sstream := Tstringstream.Create('');
  try
    img_fs.position := 0;
    img_sStream.CopyFrom(img_fs,img_fs.size);
    img_sStream.Position := 0;
    img := escapestring(img_ssTream.DataString);   // hier der Aufruf

  finally
    freeandnil(img_fs);
    freeandnil(img_sStream);
  end;

Die Routine esacpestring:

Code:

function Tform1.escapestring(str:String):String;
var res:String[101];
   len : integer;
//   p:pointer;
begin
   len:=mysql_escape_string(@res[1],PChar(str),length(str));
   setlength(res,len);
   result:=res;
end;

Beim Aufruf von escapestring(.....) hängt der sich weg und kommt mit dem "CPU-Debugger"

Wo ist hier der Denkfehler?

mir wäre nat. noch lieber, wenn ich da mysql_real_escape_string einsetzen könnte. Doch wie bekomme ich den Datentyp PMYSQL in einen String gewandelt?

Gruss

EL