in Lizenz ist nicht der Ganze Pfad sondern nur der Applikations Name + lizenzdatei und wie gesagt der Applikations Name ist auf dem Server das Verzeichnis:
lizenz ist also z.B
testapp\lizenz1.ldf
wen ich an dieser Stelle
Delphi-Quellcode:
if (y >=ServerForm._BlockedLicenses.Count -1) and(fileexists(ApplicationName+'\'+ServerForm._BlockedLicenses.Strings[y])) then
begin
das and (fileexists(ApplicationName+'\'+ServerForm._Blocke dLicenses.Strings[y]) weglasse funktioniert alles soweit, dass ich zwar nur freie Lizenzen als result zurückbekomme, diese aber nicht unbedingt für die Applikation sind also sich nicht auf dem Server im Unterordner mit Namen der Applikation befinden.
Wenn ich es so lasse wie es ist, gibt er immer die selbe lizenz zurück auch wenn sie geblockt ist.