Hallo DataCool
natürlich läuft das Ding mit dem Debugger. Mal kurz um was es geht. Die
Unit übermittelt dem (meinem) Server Lizenzierungsdaten welche dieser prüft. Je nach Ergebnis kommt vom Server ein Lizenzierungsschlüssel oder ein 'No Go' mit einem Fehlercode zurück. Angestossen wird das im Hauptprogramm über einen Button (also keinen Automatismus über einen Timer oder so). Der Fehler tritt erst auf, wenn ich die Funktion im Hauptprogramm über den Button aufrufe.
Die Aufruf-Procedure im Hauptprogramm ist auch recht einfach:
Code:
{Get License from Server}
procedure TComCont.BitBtn1Click(Sender: TObject);
var hili : string;
begin
if Edit4.Visible and (Edit4.Text <> '') then
hili := Edit4.Text
else
hili := Label49.Caption;
Edit3.Text := ALiz.GetLizfromServer('6', hili, Label48.Caption, '
IP');
if StrToIntDef(copy(Edit3.Text,1,3),0) <> 0 then
Button8Click(Self)
else
begin
Edit3.Color := clRed;
ShowMessage('There happened an error. Please consult the manual and try with a manual licensing');
end;
end;
Wie bereits erwähnt, das ganze funktioniert in 11 anderen Applikationen problemlos mit derselben
Unit.