Jump to content

audi30tdi

Members
  • Content Count

    25
  • Joined

  • Last visited

Everything posted by audi30tdi

  1. audi30tdi

    Tmapimail

    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??
  2. audi30tdi

    EHF Invoice

    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??
  3. audi30tdi

    EHF Invoice

    @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??
  4. audi30tdi

    EHF Invoice

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

    EHF Invoice

    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??
  6. audi30tdi

    EHF Invoice

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

    Which registry to edit

    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!
  8. audi30tdi

    Printer port

    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!
  9. audi30tdi

    Which registry to edit

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

    Printer port

    I need to change the ipadr for the printer
  11. audi30tdi

    Printer port

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

    System error - printer port

    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;
  13. audi30tdi

    Printer ip

    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 automatically! Regards Kåre!
  14. audi30tdi

    Printer IP

    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!
  15. audi30tdi

    Printer ip

    I know, but the ISP is only provided DHCP for my kind og connection, so therefor I was looking for a Delphi code/information to make my own program to get my wan address and set that to my printer settings in windows. So if that program is just checking every day, it will work just as I have static IP
  16. Hello! Have been using D7 for ages, but now I will try to convert it to D10, but it keeps giving me errors. In one dproj I got this error; [dcc32 Error] Tall_edit.pas(27): E2037 Declaration of 'KeyPress' differs from previous declaration [dcc32 Warning] Tall_edit.pas(107): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit. [dcc32 Warning] Tall_edit.pas(179): W1057 Implicit string cast from 'ShortString' to 'string' [dcc32 Error] Tall_edit.pas(209): E2033 Types of actual and formal var parameters must be identical I guess it is that D10 is using different code then D7, but is there a way of finding out what is wrong, and what to change code into?? Regards Kåre!
  17. audi30tdi

    Tries to convert from D7 to D10

    Ok, I have a code from D7 which tre[1]:=char, and tre is string. How should this be in D10??
  18. audi30tdi

    Which version BDE

    Hello! I am using Delphi 7 and BDE to make program, but have now trouble to get the program I make to work on windows 10. So I wounder, which version is the latest to upgrade to and still using BDE?? Regards Kåre!
  19. audi30tdi

    Application Error

    Hello! Have a application created with Delphi7 in wmvare xp version, and it runs good. But when I move/copy it to a win10 computer I got this error; Exception EReadError in module rtl70.bpl at 000344B6B. Error reading IdMessage1.DeleteTempFiles: Property DeleteTempFiles does not exist. Any know how to solve this?? Regards Kåre!
  20. audi30tdi

    Which version BDE

    I use Paradox tables in my old application, and therefor I use the Database Desktop. But as @Virgo said, it shows the error, and the nothing more happens after I click run this program without getting help............
  21. audi30tdi

    Which version BDE

    Thanks for all tips and answer, I will have so much info to start working towards a new version!! But have a one last question, I hope, is it possible to get the Database Desktop to work on win10 also?? I can't get it to start.............
  22. audi30tdi

    Application Error

    Thanks @Lajos Juhász, that was the tips I needed! I thought it was win10, but as you said, I have copied wrong file version of Indy to the new computer................
  23. audi30tdi

    Which version BDE

    It is so many genies her, so I keep asking............ Where can I get a BDE that runs with Win10, I have onlye BDE 5.2.0.2, and that I can't install in Win10?? (If I keep using my Delphi7 application until I get time to convert to never version....) Is it also possible to get the Database Desktop to work on Win10?? I can't get it to start..........
  24. audi30tdi

    Which version BDE

    Thanks again for fast answer............so happy that you people want's to share your info with me! Have I understand correct, that I have to try to open my Delphi code in the newest Delphi version, and hopefulle compile it with that?! Is FireDAC included with the latest Delphi version??
  25. audi30tdi

    Which version BDE

    Thanks for answer! Is it easy to convert from Delphi7 with BDE to the nevest Delphi/Embarcadero version with FireDAC, or must I rewrite all my code??
×