Deutsches Lazarusforum

So ganz ohne Eingriff in deine Software wird das höchstwahrscheinlich nicht gehen.

Denn du wirst den XML Part (Egal ob X-Rechnung oder ZUGFeRD) - der in dem fertigen PDF-Dokument (PDF/A-3) enthalten sein muss, dann an deinen Treiber übergeben müssen.

edit: der khhuber war etwas schneller als ich.

Sieht gut aus

So auch in:
Lazarus 3.99 Lg

Spontan würde ich das erstmal so probieren:

fs:=TFileStream.Create('c:\test.pdf', fmOpenRead);

https://www.freepascal.org/docs-html/rt ... tream.html

Lg

Meinst du das hier: https://www.freepascal.org/docs-html/fc ... tream.html

Hallo Chris.

Wie wäre es damit, den Namen der Form zu ändern?
Im Object Inspector unter dem Eintrag "Name".

Oder verstehe ich dich nicht richtig?

Lg

Aus https://build.alb42.de/fpcbin/docu/html/rtl/sysutils/findfirst.html


faSymlink - Report symlinks instead of following them
[...]
Since faSymlink is not included in faAnyFile, to find all possible files and symlinks you need to call FindFirst so:

if FindFirst('*', faAnyFile or faSymLink, info ...

Hallo Juelin.

gmx.net (mrgmx 104) Nemesis ESMTP Service ready

Das ist keine Fehlermeldung. Die Verbindung steht und es können nun weitere Befehle geschickt werden.
Siehe auch https://faq.netzprisma.de/so-funktioniert-smtp/

Moin.

Vllt. hilft das als Denkanstoß?
https://wiki.freepascal.org/fcl-registry#Accessing_64_bit_and_32_bit_registry_views

Dein Code funktioniert bei mir ohne Probleme, sobald ich folgende Variablen noch definiert hatte:


DRIVER64, DRIVER32 : String;
ODBC32Vorhanden, ODBC64Vorhanden : Boolean ...

Mathias hat geschrieben: Mo 6. Mai 2024, 08:38 Eine Konsole und ein Writeln geht auch. Aber einer Dateilist hast du schon eine reissen Klickerrei.

Da hast du natürlich Recht. Zu meiner Verteidigung, in meinem Testordner sind lediglich nur 3 Dateien, da hielt sich die Klickerei in Grenzen.

Lg

Hallo "ersteinmal".

versuche mal wie folgt:

procedure TForm1.Button1Click(Sender: TObject);
var
Files: TStringList;
i : Integer;
begin
// Liste "anlegen"
Files := TStringList.Create;

// Suchen
Files := FindAllFiles('D:\VMs\', '*.*', true);

// Zeige alle Dateinamen nacheinander an.
for i ...

Moin.

In der Hoffnung dich richtig verstanden zu haben.
Damit starte ich meinen Sql-Server im Hintergrund, ohne das meine Hauptanwendung blockiert.


procedure TForm1.Button_StartClick(Sender: TObject);
var
exe : TProcess;
begin
exe := TProcess.Create(nil);
exe.Executable:='maria2\bin\mysqld ...

'nicht ganz' off topic:

Da werden sich Microsoft und deren Partner aber freuen, dass es einen weiteren Anwender gibt, der keine Lizenzbestimmungen liest oder dem die Privatsphäre sowas von Wurst ist. :shock:
Hoffentlich verwendest du auf deinem Rechner/Tablet keine Benutzerdaten und Kennwörter ...

Nabend!

Für alle, die das selbe Problem haben, hier meine Lösung:


uses
..., process;

[...]

procedure TForm1.Button1Click(Sender: TObject);
var
Aprocess : TProcess;
begin
AProcess := TProcess.Create(nil);
AProcess.CommandLine := 'cmd.exe /C "start microsoft.windows.camera:"';
AProcess ...

Hallo gocher!

Danke für deine Mühe, funktioniert aber leider nicht.

Lg
Micha