also
beim verschlüsseln kann ich dir net weiterhelfen...
dp-suche, oder mal Hagen (bzw negaH) fragen...der sollte davon ahnung haben
inner codelib sind bestimmt auch functions die das machen
so, das suchen/mit ordner verbinden
das wäre dann im buttonClick folgendes wenn ich das richtig verstanden hab:
Datei finden mit Namen "xy.z"
Datei öffnen
Dateiinhalt entschlüsseln
Mit Daten aus Datei zu Server verbinden
nun guckst du oben
um eine Datei zu finden nimmst du FindFirst...
dazu brauchst du ein SearchRec...
wenn die datei gefunden wurde gibt Findfirst 0 zurück, am ende das SearchRec wieder mit FindClose "schliessen"
daraus ergibt sich folgender Code:
Delphi-Quellcode:
var sr: TSearchRec;
begin
if FindFirst('vincik/howtos/servertut/*/howto.vi',faAnyFile,sr)=0
then Laden;
FindClose(sr);
die datei laden...einfachste methode wäre mittels einer TStringList
dazu folgender Code:
Delphi-Quellcode:
var temp:TStringList;
begin
temp:=TStringList.Create;
temp.LoadFromFile('vincik/howtos/servertut');
Name:=temp[0];//zugriff auf 1. Zeile
Passwd:=Decode(temp[1]);//zugriff auf 2. zeile...decode=entschlüssel -> Hagen
temp.Free;
end;
zusammen ergibt das dann iun etwa das:
Delphi-Quellcode:
var t:TStringList;
sr: TSearchRec;
begin
t:=TStringList.Create;
if FindFirst('vincik/howtos/servertut/*/howto.vi',faAnyFile,sr)=0
then t.LoadFromFile(sr.Name);
FindClose(sr);
//Hier Daten aus t rausholen mittels t[0]...
t.Free;
end;
EDIT:
das mit dem suchen war falsch, man kann da kein \*\ einbauen....
das sollte in etwa so gehen:
Delphi-Quellcode:
FindAllFiles(Files,Ordner,'*.vi');
for i:=0 to Files.Count-1 do
if ExtractFileName(Files[i])='howtoserv.vi'
then break;
Dateiname=Files[i];