--- dao/DelphiScanner/ParentForm.pas 2015/09/04 12:39:33 2705 +++ dao/DelphiScanner/ParentForm.pas 2016/08/21 20:51:45 3095 @@ -2,15 +2,19 @@ interface uses - Forms; + Forms, + XMLDoc; type IParentForm = Interface(IInterface) + procedure Msg( msg : string); procedure LogMessage( msg : string); procedure SetPrinterstatusText( txt: string; alert: boolean); function GetFormObject() : TForm; + function GetXMLDocument() : TXMLDocument; + End; implementation