also ich habe mir mal den code kopiert und natuerlich gleich ausprobiert. die fehlermeldung kommt nun nicht mehr, dafuer aber auch kein inhalt.
folgendes tue ich zum Erstellen:
Code:
var
FileID:TStringlist;
begin
FileID := TStringList.Create;
FileID.Text := Base64Encode('1234/abcd');
ShowMessage(fileid.Text);
FileID.SaveToFile(App_Path + '\license.id');
end;
und folgendes zum Auslesen
Code:
procedure TForm1.CheckUserID;
var
FileID:TStringlist;
begin
if FileExists(App_Path + '\license.id') then
begin
FileID := TStringList.Create;
FileID.LoadFromFile(App_Path + '\license.id');
ShowMessage((FileID.Text));
ShowMessage(Base64Decode(FileID.Text));
if Base64Decode(FileID.Text) = '1234/abcd' then exit
else
begin
PageControl1.Pages[1].Destroy;
PageControl1.Pages[3].Destroy;
end;
end
else
begin
PageControl1.Pages[1].Destroy;
PageControl1.Pages[3].Destroy;
end;
end;
Die Messagebox mit dem Inhalt der Datei stimmt.
Leider gibt mir die Messagebox mit dem encodeten Inhalt einen Leerstring zurueck.
hm, wo liegt das problem???