Einzelnen Beitrag anzeigen

gee21

Registriert seit: 3. Jan 2013
199 Beiträge
 
Delphi 10.4 Sydney
 
#1

Schweizer QR Rechnung erstellen mithilfe von php-swiss-qr-bill

  Alt 7. Sep 2023, 20:09
Hallo zusammen. ich bin's mal wieder

Ich muss diverse QR Rechnungen (Einzahlungscheine) generieren in Delphi. Am schluss sollte so ein PDF generiert werden: https://github.com/sprain/php-swiss-...yment-part.png

Ich dachte ich würde gerne dieses PHP Tool auf einem Lokalen Webserver laufen lassen (NAS) https://github.com/sprain/php-swiss-qr-bill

und wollte es dann anschliessend ungefähr so ansprechen:

Delphi-Quellcode:
var
  IdHTTP: TIdHTTP;
  Response: TMemoryStream;
  Params: TStringList;
begin
  IdHTTP := TIdHTTP.Create(nil);
  Response := TMemoryStream.Create;
  Params := TStringList.Create;
  try
    Params.Add('name=Max Muster');
    Params.Add('address=Musterstrasse 1');
    Params.Add('location=8000 Zürich');
    Params.Add('iban=CH9300762011623852957');
    Params.Add('amount=210000');
    Params.Add('currency=CHF');
    IdHTTP.Post('http://192.168.0.50/src/QrBill.php', Params, Response);

   if savedialog1.Execute=true then begin
    Response.SaveToFile(savedialog1.FileName);
   end;

  finally
    IdHTTP.Free;
    Response.Free;
    Params.Free;
  end;

jetzt habe ich das Problem das ich in Delphi aber auch im Webbrowser den Fehler:
Code:
192.168.0.50 kann diese Anfrage zurzeit nicht bearbeiten.
HTTP ERROR 500
und ich weiss nicht ob ich da was falsch anspreche mit den Paramter/Indy/Delphi oder ob etwas mit dem webserver/Nas nicht stimmt. aber php wäre aktiv (viel mehr optionen gibts da nicht, ist ein asustor nas).

Hat mir vieleicht jemand einen Rat was das Problem sein könnte?

LG Robert
Robert
  Mit Zitat antworten Zitat