Einzelnen Beitrag anzeigen

KlausV

Registriert seit: 29. Aug 2017
Ort: 68809 Neulußheim
84 Beiträge
 
Delphi 7 Professional
 
#29

AW: TLB Datei importieren Delphi 7

  Alt 26. Jul 2024, 11:27
Moin,
zur Fehlermeldung.
Im debug mode gehe ich mit F7 step by step durch.
1. function TXML.Get_ZUGFeRD_Structure: ZUGFeRD;
begin
Result := DefaultInterface.ZUGFeRD_Structure;
end;
Wenn ich mir den Inhalt von Structure anschaue, dann sieht das gut aus.
((0, 1, 'urn:fdc:peppol.eu:2017:poacc:billing:01:1.0'), ('47110815', '', 380, '20240531', '102', 0, ), ('N999-11111-22', 'KundenNummer', ('', ''), 'Muster GmbH', 'Karl Mustermann', 'Einkauf', '+490000', '', 'stefan@aloaha.com', '49479', 'Bahnhofstraße 1', 'Wohnung 2', ), ('4711', ('', ''), 'Aloaha Limited', 'John Doe', 'Sales Department', '+490000', '', 'stefan@aloaha.com', 'PBK1131', 'Helgoland', 'Triq Gio Felice Inglott', ), (('', '', ('', ''), '', '', '', '', '', '', '', '', '', '', '', '', '', nil, ('', '', '', '', '', '', '', ('', '', ''), ''), nil, nil, ('', '')), ('20120608', '102'), ('', '', '', '', '', '', '', ('', '', ''), ''), ('', '', '')), (('', '', ('', ''), '', '', '', '', '', '', '', '', '', '', '', '', '', nil, ('', '', '', '', '', '', '', ('', '', ''), ''), nil, nil, ('', '')), '47110815', '', 'EUR', nil, (('', ''), ('', '')), nil, nil, nil, nil, (('', ''), ('', ''), ('', ''), ('', ''), ('', ''), ('', ''), ('', ''), ('', ''), ('', '')), ('', '', ''), ('', ''), nil, nil, nil), nil, (0, 0))

2. function TXML.GetDefaultInterface: _XML;
begin
if FIntf = nil then // Inhalt FIntf = Pointer($84D0030) as _XML
Connect;
Assert(FIntf <> nil, 'DefaultInterface ist NULL. Die Komponente ist nicht mit dem Server verbunden. Sie müssen vor dieser Operation ''Connect'' oder ''ConnectTo'' aufrufen');
Result := FIntf;
end;
Nach dem Verlassen der Funktion kommt dann die Fehlermeldung: Eine Exception ist in der Klasse EOlException aufgetreten. Nicht genügend Speicher verfügbar um das Programm weiterhin auszuführen.
Danke schon mal.
----------------------------------------------
Klaus
  Mit Zitat antworten Zitat