Qry:Params.Clear bringt Fehler

[juergen]

Edit: 16.02.2020, Bitte das hier ignorieren und direkt ab Post #6 weiterlesen. Danke!

Hallo zusammnen,

ich setze in einer Schleife -je nach Bedingung- die Params einer Query.
Z.B. (nur auszugsweise ohne Fehlerbehandliung usw.):

Delphi-Quellcode:

WITH FDQry_Update.Params DO
BEGIN
  WITH Add DO
  BEGIN
    NAME := 'Bild';
    DataType := ftStream;
    ParamType := ptInput;
    StreamMode := smOpenWrite; { uses FireDAC.Stan.Intf }
  END;
END;

FDQry_Update.ParamByName( 'Bild' ).AsStream := Bild_codiert_als_Base64_aus_StringList_in_Stream_encodieren( Bild_zaehler ) { function };

FDQry_Update.Close;                            
FDQry_Update.ParamByName( 'Bild' ).Free;       
FDQry_Update.Params.Clear; { <=== ! hier knallt es }

Folgende Fehlermeldung erscheint:
Erste Gelegenheit für Exception bei $000000000040E315. Exception-Klasse $C0000005 mit Meldung 'c0000005 ACCESS_VIOLATION'. Prozess xxxx.exe (9564)

Ich habe nun schon einiges probiert mit .Free usw. und verstehe auch nicht warum bei Clear diese Fehlermedlung erscheint.
Nur bei dieser einen Bedingung -wo der Datentyp ftStream ist- knallt es. Die anderen funktionieren.

Kennt hier jemand das Problem, bzw. weiß Rat woran es liegen könnte?

Vielen Dank schon mal vorab!

[juergen]

Hallo Frühlingsrolle,

leider ist das nicht das Problem. Anfangs hatte ich das auch nicht, hatte halt einiges probiert.
Wenn ich die Zeile weglasse kommt derselbe Fehler.

[juergen]

Hallo Frühlingsrolle,
Stop!
Das Problem scheint beim Stream zu sein, ist nämlich leer. Da hatte mich der Debugger auf die falsche Spur gebracht.
Danke erst mal für deine Unterstützung!

[juergen]

Hallo zusammen,

ich kann machen was ich will, es kommt immer die selbe Schutzverletzung, wenn ich einen Parameter als ftStream definiert habe und dann entweder die Connection schließen will uDataModul.DataModule1.FDConnection1.Connected := False oder die Parameter löschen will uDataModul.DataModule1.FDQry_Update.Params.Clear oder den Stream frei geben will uDataModul.DataModule1.FDQry_Update.CloseStreams oder die Query schließen will uDataModul.DataModule1.FDQry_Update.Close .
Auch in allen möglichen Reihenfolgen/ Kombinationen probiert.

Delphi-Quellcode:

WITH uDataModul.DataModule1.FDQry_Update.Params DO
BEGIN
  Clear; { !  weil ich in einer Schleife zuvor auch schon Params anwende muss ich die hier löschen }
  WITH Add DO
  BEGIN
    NAME := 'Bild';
    DataType := ftStream;
    ParamType := ptInput;
    StreamMode := smOpenWrite; { uses FireDAC.Stan.Intf }
  END;
  WITH Add DO
  BEGIN
    NAME := 'RecID_GR';
    DataType := ftInteger;
    ParamType := ptInput;
  END;
END;
TRY
  uDataModul.DataModule1.FDQry_Update.ParamByName( 'Bild' ).AsStream := TStream( l_AStream );
  uDataModul.DataModule1.FDQry_Update.ParamByName( 'RecID_GR' ).AsInteger := gi_RecID_GR;

  uDataModul.DataModule1.FDQry_Update.ExecSQL;
FINALLY
  l_AStream.Free;
  // uDataModul.DataModule1.FDQry_Update.CloseStreams;
  // uDataModul.DataModule1.FDQry_Update.Close;
  // uDataModul.DataModule1.FDQry_Update.Params.Clear;
  // uDataModul.DataModule1.FDConnection1.Params.Free;
  // uDataModul.DataModule1.FDConnection1.Connected := False;     <===== bei den 5 Anweisungen knallt es immer (wenn aktiv) mit der selben Fehlermeldung, in allen möglichen Kombinationen
END;

Fehlermeldung:

Zitat:

Erste Gelegenheit für Exception bei $000000000040E315. Exception-Klasse $C0000005 mit Meldung 'c0000005 ACCESS_VIOLATION'

Hat jemand noch eine Idee wie man die uDataModul.DataModule1.FDQry_Update closen kann, *ohne* dass die Fehlermeldung ausgelöst wird?

Vielen Dank.