Deutsches Lazarusforum

... ich habe es noch mal unter Windows 10 ausprobiert und bei mir hat es gelangt, den Inhalt des Archivs https://github.com/IndySockets/OpenSSL-Binaries/blob/master/openssl-3_x/openssl-3.3.2-win64.zip in dasselbe Verzeichnis zu legen wie den Server. Der startete danach ohne Probleme und lief unter ...

N'Abend.

Ich habe im Office einen Rechner mit 64bit-Windows 10. Da kann ich unser Minimalbeispiel morgen noch mal ausprobieren und checken, welche DLLs (am besten) funktionieren...

Nun ja, der FPHttpClient schreibt das auch und und die verwendete FCL Net Library schmeißt sogar eine Exception dazu. Allerdings bin ich mir nicht sicher, ob man die so einfach abfangen kann.

Siehe hierzu fpcsrc/packages/fcl-net/src/sslsockets.pp


class function TSSLSocketHandler ...

... dann musst Du vermutlich wohl oder übel auch Lazarus hochziehen.

TCertificateData ist in fcl-net definiert. Demnach würde ich erstmal mit den FPC Sourcen anfangen...

corpsman hat geschrieben: Fr 9. Jan 2026, 14:38 Danke für deine Hilfe, finde es cool zu sehen was man alles mit "Default" Komponenten machen kann

Ja, das beeindruckt mich auch immer wieder und wo immer es geht, versuche ich, auf Bausteine aus RTL, FCL und LCL zu setzen, um die externen Abhängigkeiten möglichst gering zu halten.

... bedeutet Dein 'Edit', dass Du es jetzt hinbekommen hast? Oder brauchst Du weiterhin Unterstützung?

Bist Du sicher, dass Dein Client die SSL-Library findet und nutzt?

Ich habe hier mal einen CLI-Client zum Ausprobieren:


{$mode objfpc}{$H+}
uses base64, fphttpclient, opensslsockets;

Var
Result, Username, Password, AuthHeader : String;

begin
Username := 'gru';
Password := 't0ps3cret ...

Toppi! :)

Die nächsten Schritte hängen natürlich sehr stark von Deiner Anwendungsarchitektur ab, aber Authentisierung & Autorisierung sind auf jeden Fall superwichtig, sofern Dein Server wirklich am Internet hängen soll.

Sofern Du Deinen Server auf HTTPS beschränkst, ist es dabei wohl am ...

Genau!

Und dieses Pärchen referenzierst Du nun in Deinem Server:


...
Application.UseSSL := true;
Application.CertificateData.Certificate.FileName := 'server.crt';
Application.CertificateData.PrivateKey.FileName := 'server.key';
Writeln('Starte Webserver...');
...


Einmal kompilieren und ...

Danke für die Informationen. Wie es aussieht, sendet der Server bei Dir kein selbst signiertes Default-Zertifikat. Ich schaue mir das noch mal bei mir an, da tut er das nämlich.

Weißt Du, wie man ein Zertifikatspaar erstellt? Dann können wir dem Server auch explizit einen Schlüssel und ein ...

... auf Deiner Maschine nimmt der Server den Call zwar an, baut aber keine SSL-Verbindung auf.

Ich tippe auf ein Problem beim Handshake, aber um das zu ergründen, benötigen wir ein paar mehr Informationen. Kannst Du etwas genauer sagen, mit was für einer Linux-Variante / Distribution wir es bei ...

... geht bei mir auch mit Deinem Code. Kannst Du mal bitte folgenden Befehl (natürlich ohne Hash) eingeben und die gesamte Bildschirmausgabe posten?

... ich habe es mal ausprobiert und insbesondere dann, wenn Du beide Seiten selbst kontrollierst, sollte es bei Größen um die 10MB einfach mit "Bordmitteln" gehen, indem Du deine Datenbank mittels Base64 kodierst und dann per HTTP GET bzw. HTTP PUT liest und schreibst.

Ich habe das mal ...

Mein Eigentliches Ziel ist es ja nur nen Server zu machen, der übers Internet erreichbar und halbwegs sicher (=verschlüsselte Kommunikation) ist.


Was für eine Nutzlast soll denn über die Leitung gehen? Schwebt Dir eine Art REST-API vor, die an Port 443 (o.ä.) angeboten wird und über die Deine ...