Bilder von MSSQL in MySQL kopieren

[Hansi]

Hallo,

in meinem Programm kopiere ich Jpeg-Bilder von einer MSSQL (Feldtyp Image) in eine MYSQL (Blob). Das funktioniert und die Bilder kommen auch korrekt an.
Umgekehrt wenn ich aus dieser MySQL das Bild wieder in eine MSSQL speichern will speichert er irgendwas ab und das Bild ist defekt (Kodierungsfehler meint Windows).

Muss ich da was bestimmte beachten?

[mkinzler]

Wie Transferierst du?

[Hansi]

meinst du das?

Mit Zeos von MySQL in die MSSQL DB und mit ADO von MSSQL in die MYSQL.

[mkinzler]

Und wie sieht der Code aus?

[Hansi]

ich hatte den Code in mehreren Schleifen drinnen und da hat er "Schrott" kopiert. Nachdem ich den Code rausgenommen habe und einzeln durchlaufen lassen habe, tut es... Man muss nicht alles verstehen.

Code:

With ZQ1 do begin
        Active := False;
        SQL.Clear;
        SQL.Text := ' Insert Into bilder (artikelbild, artikel_id, path, bild, size, bildnummer) Values '+
                    ' (:p1, :p2, :p3, :p4, :p5, :p6)';
        ParamCheck := True;
        ParamByName('p1').Value  := AQ2.FieldByName('a_artikelbild').Value;;
        ParamByName('p2').Value  := AQ2.FieldByName('a_artikel_id').Value;
        ParamByName('p3').Value  := AQ2.FieldByName('a_path').Value;
        ParamByName('p4').Value  := AQ2.FieldByName('a_bild').Value;
        ParamByName('p5').Value  := AQ2.FieldByName('a_size').Value;
        ParamByName('p6').Value  := AQ2.FieldByName('a_bildnummer').Value;
        ExecSQL;
      end;

Fehler lag also zwischen den Ohren. Danke für die Hilfe...

[sx2008]

Da sind immer noch Fehler drin.
Die Zuweisung an SQL.Text beinhaltet automatisch ein SQL.Clear .
SQL.Clear ist hier also überflüssig.
Aber das eigentliche Problem ist, dass du dein Code-Fragment mehrfach aufrufst.
Immer wieder SQL.Text zuzuweisen ist aber unfein, denn dies löst intern in der Komponente einiges an Arbeit (Parsen der Parameter, Datenbankanfrage wegen den Datentypen) aus.
Die saubere Lösung wäre also den SQL.Text ausserhalb der Schleife zuzuweisen.
Und auch das Active := False ist eine überflüssige Anweisung.