Meine PICOLAY-Website wurde auf
HTTPS umgestellt. Jetzt funktionieren die Internetzugriffe aus dem Programm heraus nicht mehr.
Delphi-Quellcode:
procedure TForm1.ShowPICOLAYhomepage1Click(Sender: TObject);
begin
try
if UrlExists('
https://www.picolay.de/whatsnew.htm', true)
then
begin
ShellExecute(Application.Handle, '
open',
PChar('
https://www.picolay.de'),
nil,
nil,
SW_ShowNormal);
end;
except
MessageDlg('
Sorry, [url]www.picolay.de[/url] not found' , mtConfirmation, [mbok], 0);
end;
end;
procedure CheckforNewVersion;
var
MyIdHTTP: TIdHTTP;
currentversion, webversion :
string;
connected : boolean;
begin
connected := false;
try
connected := UrlExists('
https://www.picolay.de/latestversion.txt', true);
except;
end;
if connected
then
begin
currentversion := '
20240215';
webversion := '
0';
MyIdHTTP := TIdHTTP.Create(Form1);
try
webversion := MyIdHTTP.Get('
https://www.picolay.de/latestversion.txt');
finally
FreeAndNil(MyIdHTTP);
end;
if webversion > currentversion
then
begin
MessageDlg('
New free version of PICOLAY available! Please'
+#13+ '
download from [url]www.picolay.de[/url] as soon as possible.' , mtinformation, [mbok], 0);
end;
end;
end;
Wer hilft mir bei der Umstellung des Codes? Bin aus der Generation, für die das Internet Neuland ist
Vielen Dank,
Theseus