Fehler mit Post und Form.

[wlfmario]

Hallo Profis,

ich habe im mein Project mehrere Form's die ich bei bedarf über Formwasweisich.Showmodal; aufrufe.
Klappt alles so weit Prima nur bei einem Form Wo ich Daten eingeben will und in einer Interbase Datenbank Speichern will, bekomme ich eine Fehlermeldung (Siehe Bild). die ich nicht verstehe.
Also ich Rufe mit einem Button Das Form auf.

Delphi-Quellcode:

procedure TFilmFact.BtnNeuFilmClick(Sender: TObject);  
begin  
DM.IBFilme.Insert;  
NeuerFilm.ShowModal;  
end;

Nach eingabe der Daten Drücke ich auf den Button Speichern:

Delphi-Quellcode:

procedure TNeuerFilm.BtnFilmNeuSpeichernClick(Sender: TObject);  
begin  
DM.IBFilme.Post;  
NeuerFilm.Close;  
end;

und dann kommt der Fehler !
Was mache ich dort Falsch ? Das selbe mache ich auch mit anderen Forms und das klappt.
Das Prinzip ist bei dem Project immer gleich nur bei einem klappt es nicht.
Wenn ich das Post lösche, wird das Fenster ohne Meldung geschlossen.

[marabu]

Hallo,

die Exception wird nicht durch IBFilme.Post geworfen, sondern anderswo - vermute ich. Mache mal in deinen Debugger-Optionen einen Haken bei "Bei Delphi-Exceptions stoppen". Du solltest dann genauer erkennen, welches statement die Exception wirft.

Grüße vom marabu

[wlfmario]

Unter den Debugger Optionen finde ich das nicht !
Ich habe die D7 Version.

[marabu]

Innerhalb der Debugger-Optionen musst du die Seite "Sprach-Exceptions" auswählen, dann findest du die CheckBox ziemlich weit im Süden...

marabu

[wlfmario]

Danke war schon ein Hacken drann.
Jetzt zeigt er mir immer folgenden Text an:

Delphi-Quellcode:

program FilmFactProj;

uses
  Forms,
  FilFactUnti in 'FilFactUnti.pas' {FilmFact},
  DataModul in 'DataModul.pas' {DM: TDataModule},
  NeuKundeForm in 'NeuKundeForm.pas' {NeuKundeForm},
  KundeLoeschenForm in 'KundeLoeschenForm.pas' {KundeLoeschen},
  KundeBearbeitenForm in 'KundeBearbeitenForm.pas' {KundeBearbeiten},
  KundeSuchenForm in 'KundeSuchenForm.pas' {KundeSuchen},
  KundeVerwaltenForm in 'KundeVerwaltenForm.pas' {KundeVerwalten},
  NeuerFilmForm in 'NeuerFilmForm.pas' {NeuerFilm};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFilmFact, FilmFact);
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TNeuKunde, NeuKunde);
  Application.CreateForm(TKundeLoeschen, KundeLoeschen);
  Application.CreateForm(TKundeBearbeiten, KundeBearbeiten);
  Application.CreateForm(TKundeSuchen, KundeSuchen);
  Application.CreateForm(TKundeVerwalten, KundeVerwalten);
  Application.CreateForm(TNeuerFilm, NeuerFilm);
  Application.Run;
end.

bei dem end. ist es dann Blau unterlegt. Mehr zeigt er nicht an.

[marabu]

Nimm mal das NeuerFilm.Close hinter deinem Post weg. Wenn du innerhalb deiner Form eine Methode aufrufst, dann ist die Qualifizierung über die globale Form-Variable sowieso nicht nötig und eher eine potentielle Stolperfalle.
Wahrscheinlich hast du die Form NeuerFilm mit ShowModal angezeigt - dann solltest du die Anzeige mit ModalResult := mrOK beenden.

marabu

[wlfmario]

Habe ich gemacht !
Leider bleibt der Fehler !
Zwischenzeitlich bekam ich noch eine Meldung Irgendwas mit Arrys und Blobfelder ! Das kommt jetzt aber nicht mehr.
Wenn ich alles mit Einzelanweisungen mache (F7) gibt es keine Meldung.

[marabu]

Da ich deinen Quellcode nicht sehe, musst du alleine weiter suchen. Hast du irgendwelche Ereignisbehandlungsroutinen an deinem DataSet oder der verknüpften DataSource, die beim Post ausgeführt werden? Irgendwo machst du etwas, was ein Fenster in den Vordergrund holen will, was aber wegen ShowModal verwehrt wird. Wenn du vorübergehend dein NeuerFilm.ShowModal durch NeuerFilm.Show ersetzt und nach dem Post dann ein Hide einführst, vielleicht erhältst du dann einen Hinweis darauf, was schief läuft?

marabu

[wlfmario]

Jetzt ist wie von Geisterhand der eine Fehler weck, und schon ist ein neuer da !
Ich bekomme immer diese Meldung.

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt FilmFactProj.exe ist eine Exception der Klasse EIBInterBaseError aufgetreten. Meldung: 'feature is not supported
BLOB and array data types are not supported for compare operation'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

Das Blobfeld ist doch in der Datenbank.
Was bedeutet das ?

[marabu]

Du hast vermutlich ein BLOB-Feld als Operand in einer sql expression verwendet, wobei der Operator keine BLOB-Felder zulässt. Mit BLOB-Feldern kannst du nicht so richtig viel machen - schon gar nicht Vergleichen oder Addieren...

marabu