ich benutze Ubuntu 20.04 LTS und möchte in einem Programm einen HTML-Quellcode "ziehen". Hier, so sieht das in etwa aus:
Code: Alles auswählen
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
fphttpclient, openssl;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
const meine_url ='https://xxx';
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var Quelltext: TFPHTTPClient = nil;
begin
Quelltext := TFPHTTPClient.Create (nil);
Quelltext.AddHeader ('User-Agent','Mozilla/5.0 (compatible; fpweb)');
Quelltext.Get (meine_url);
Quelltext.Free;
end;
end.
Sobald ich den Button anklicke, erhalte ich einen Fehler vom Debugger: "ESSL failed to create SSL context"root@cleversophie:~# aptitude versions openssl
Paket openssl:
p 1.1.1f-1ubuntu2 focal 500
i 1.1.1f-1ubuntu2.16 focal-security,focal-upda 500
Paket openssl:i386:
p 1.1.1f-1ubuntu2 focal 500
p 1.1.1f-1ubuntu2.16 focal-security,focal-upda 500
root@cleversophie:~# aptitude versions libssl-dev
Paket libssl-dev:
p 1.1.1f-1ubuntu2 focal 500
i 1.1.1f-1ubuntu2.16 focal-security,focal-upda 500
Paket libssl-dev:i386:
p 1.1.1f-1ubuntu2 focal 500
p 1.1.1f-1ubuntu2.16 focal-security,focal-upda 500
root@cleversophie:~#
Da meine Kenntnisse größtenteils noch aus Turbo Pascal 3.02 Zeiten stammen, schaue ich hier gerade wie ein Schwein ins Uhrwerk. Wie bekomme ich die Kuh vom Eis?
Gruß,
Jörg