SetBlobData bei ADOQuery

[HolgerCW]

Hallo zusammen,

stelle derzeit auf ADO um.

Vorher ging dies:

Delphi-Quellcode:

DM_Main.QueryRaw.ParamByName('p_pdf').SetBlobData(outstream.Memory, outstream.Size);

Wie geht das bei ADOQuery ? Dort gibt es den Befehl "SetBlobData" an der Stelle nicht ? So geht es nicht:

Delphi-Quellcode:

DM_Main.ADOQueryRaw.Parameters.ParamByName('p_pdf').SetBlobData(outstream.Memory, outstream.Size);

Gruss

Holger

[DeddyH]

http://stackoverflow.com/questions/1...component-only

[HolgerCW]

Vielen dank dafür.

[Bernhard Geyer]

Oracle und Ado? Du stellst - um es ketzerisch zu sagen - von der Pest auf Cholara um.
Für Oracle ist es besser auf native Komponenten umzustellen die oracle entweder direkt odet über den (Instant)Client ansprechen können. Ado ist hier ein (potentiell fehlerträchtiger) Fremdkörper.

[HolgerCW]

Hallo nochmal,

habe das nun testen können und es klappt leider nicht. Was mache ich falsch ?

Hier mal der Code, welcher einen Stream auslesen soll und anschliessend wieder an einer anderen Stelle einfügen soll:

Delphi-Quellcode:

var
 blob: TStream;
 outstream: TMemoryStream;
 Query: TADOQuery;
begin

 DM_Main.ADOTableRaw.Close;
 DM_Main.ADOTableRaw.TableName := 'KO_STATIONSTYP';
 DM_Main.ADOTableRaw.IndexFieldNames := 'STATIONSTYP';
 DM_Main.ADOTableRaw.Filter := 'STATIONSTYP = ''' + DM_KSB.ADOQueryBestellung['STATIONSTYP'] + '''';
 DM_Main.ADOTableRaw.Filtered := TRUE;
 DM_Main.ADOTableRaw.Open;

 if DM_Main.ADOTableRaw['BEDIENUNGSANLEITUNG'] <> '' then
 begin

  blob := DM_Main.ADOTableRaw.CreateBlobStream(DM_Main.ADOTableRaw.FieldByName('BEDIENUNGSANLEITUNG'), bmRead);
  blob.Seek(0, soFromBeginning);

  outstream := TMemoryStream.Create;
  outstream.LoadFromStream(blob);
  outstream.Seek(0, soFromBeginning);

  DM_Main.ADOQueryRaw.Close;
  DM_Main.ADOQueryRaw.SQL[1] := 'SYSFORM.KOBUSYS_VERLAUF';
  DM_Main.ADOQueryRaw.SQL[3] := 'BEDIENUNGSANLEITUNG';
  DM_Main.ADOQueryRaw.SQL[5] := 'WHERE ID';
  //DM_Main.QueryRaw.ParamByName('p_pdf').SetBlobData(outstream.Memory, outstream.Size);
  DM_Main.ADOQueryRaw.Parameters.ParamByName('p_pdf').LoadFromStream(outstream.Memory, ftBlob);
  DM_Main.ADOQueryRaw.Parameters.ParamByName('p_auftragsnummer').Value := inttostr(DM_KSB.ADOQueryBestellung['ID']);
  DM_Main.ADOQueryRaw.ExecSQL;

  outstream.Free;

  blob.Free;

 end;

und hier noch der SQL-Code der Query:

Delphi-Quellcode:

UPDATE 
SYSDBP.DBP_AUFTRAGEX 
SET 
PDF 
= :p_pdf
WHERE AUFTRAGSNUMMER 
= :p_auftragsnummer

Bei .LoadFromStream kommt der Fehler "Zugriffsverletzung bei Adresse ...". Das Auskommentierte ist der vorherige Code mit der BDE und TQuery. Das ging. Nun will ich das ja mit ADOQuery machen.

Vielleicht kennt Ihr ja auch eine ganz andere Lösung für das kopieren von einem Stream ...

Gruss

Holger

[mkinzler]

Di Du solltest nicht die selbe Komponenet nehmen. Zum Zeitpunkt des Einfügens existiert der Blob ja nicht mehr.

[HolgerCW]

Warum existiert er da nicht mehr. Oben das ist ein Table und unten eine Query oder was meinst Du ?

[mkinzler]

Der programmseitige Zugriff ist gekappt.

[HolgerCW]

Hi,

habe nun schon mal die Fehlermeldung beseitigt. Folgender Code:

Delphi-Quellcode:

DM_Main.ADOQueryRaw.Parameters.ParamByName('p_pdf').LoadFromStream(outstream.Memory, ftBlob);

war falsch. Das "outstream.Memory" darf nur "outstream" heissen.

Du hast aber recht. Er fügt nichts ein. An welcher Stelle des codes mache ich was falsch. Verstehe das noch nicht so ganz ?

[HolgerCW]

Habe mich vertan. Er macht nun das was er soll. Alles funktioniert wunderbar. Ausser das auslesen dauert gefühlsmässig länger als noch mit der BDE.

Gruss

Holger