audi30tdi

@Skrim, @Lars Fosdal Looking for code to produce xml file and then send Will look at the link @Rollo62 sent me, to see if there is what I need

Hello! Try again, didn't get any good answer the last time.......... Has someone got a code which is working to send EHF invoice in Norway, and would share some code and info??

Hello! Have setup a windows XP and Delphi 7 on a VMware Workstation, and there I have made a program using TMapimail to send a report using Outlook. So the question is, is it possible to run the program on WMware and send the report from the Outlook on the host computer??

@skrim Great! Looks like you is an expert, do you know of links to delphi code also for making the file?? Or maybee you have a small code showing me??

@Skrim Ok, then I need info for making the file and sending it

It looks like the Norwegian EHF is based on the PEPPOL BIS Billing 3. Is that the same as you send me a link to??

@mjustin, I must check if the EHF used in Norway is related to EN 16391, but thanks!

Hello! Is there anybody who has made software that can send EHF invoice, and would share some info how to get it to work, and maybee some code??

Because I thought it was best to make a new topics as I got a new idea for getting a solution to my problem...........

I need to change the ipadr for the printer

Hello! Which key should I edit if I want to change printer settings, like the port etc?? When I search the registry for the printers ipadr, I find many place where it is. Have edit the HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\Phaser 6130, but it doesn't change the value when I check the controlpanel and printer settings there. Also tried to change the value in HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\Phaser 6130\DsSpooler, but it did not change in the registry! Is that because I only can change one value before I close the key?? I find all of this key; HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\Phaser 6130 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\Phaser 6130\DsSpooler HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows NT\CurrentVersion\Print\Printers\Phaser 6130 HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows NT\CurrentVersion\Print\Printers\Phaser 6130\DsSpooler HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Print\Printers\Phaser 6130 HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Print\Printers\Phaser 6130\DsSpooler HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Printers\Phaser 6130 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Printers\Phaser 6130\DsSpooler should I change everyone?? Do I have to add a new ethernet port in registry, before I can change the port to this new ethernet adr?? Regards Kåre!

Is it not possible to change printer port from Delphi code??

Hello! How can I by Delphi code change the port of my printer?? What code to use if I want to use LPT1, USB00x, COM1 or ipadress?? Regards Kåre!

Hello! Why does the following code give me an system error. Code 5. No access. This happens if I choose a printername from memo1 which have a different port then an ethernet. procedure tform1.Display(const prefix: string; S: PChar); begin memo1.lines.add(prefix + string(S)); end; function GetCurrentPrinterHandle: THandle; const Defaults: TPrinterDefaults = (pDatatype: nil; pDevMode: nil; DesiredAccess: PRINTER_ACCESS_USE or PRINTER_ACCESS_ADMINISTER); var Device, Driver, Port: array[0..255] of char; hDeviceMode: THandle; begin Printer.GetPrinter(Device, Driver, Port, hDeviceMode); if not OpenPrinter(@Device, Result, @Defaults) then RaiseLastWin32Error; end; procedure TForm1.Button14Click(Sender: TObject); var pInfo: PPrinterInfo2; bytesNeeded: DWORD; hPrinter: THandle; u,i: Integer; sant : boolean; begin u:=strtoint(edit4.Text); i:=-1; sant:=false; repeat i:=i+1; { for i := 0 to printer.Printers.Count - 1 do begin} Printer.PrinterIndex := i; hPrinter := GetCurrentPrinterHandle; try GetPrinter(hPrinter, 2, nil, 0, @bytesNeeded); pInfo := AllocMem(bytesNeeded); try GetPrinter(hPrinter, 2, pInfo, bytesNeeded, @bytesNeeded); if pinfo^.pPrinterName=memo2.lines then begin Display('ServerName: ', pInfo^.pServerName); Display('PrinterName: ', pInfo^.pPrinterName); Display('ShareName: ', pInfo^.pShareName); Display('PortName: ', pInfo^.pPortName); sant:=true; end; finally FreeMem(pInfo); end; finally ClosePrinter(hPrinter); end; { end;} until (i=printer.printers.Count-1) or (sant=true); end;

Hello! Is it possible to check and fine what ip I got on the wan side?? And how can I set the printers ipaddress?? Have dhcp on my ISP, and as I use a redirect on my printer from my office, I had to change the ipadr the printer should use very often. I hope I could make a program that read my wan adr, and could set this ip to the printer settings in windows automatically! Regards Kåre!