Hallo!
Habe gerade ein Programm fertiggestellt - auf meinem Rechner und auf meinem Laptop läuft es Einwandfrei, auf dem von meinem Kumpel will es nicht laufen.. die berühmte
Access violation..
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
htmlcontent:string;
begin
htmlcontent:='u';
htmlcontent:=GETHTML('http://www.link.de/status.php?username='+Edit1.Text+'&password='+Edit2.Text);
while (htmlcontent= 'u') do
begin
form1.caption:='Überprüfung...';
sleep(1000);
end;
if htmlcontent[1]= '1' then
begin
login:=true;
FormActivate(Sender);
end
else
Form1.caption:='Login';
end;
Ich glaube es liegt am htmlcontent[1], aber was kann ich machen, damit da auf keinen fall solch eine Message kommt?
hilfe
ach ja getHTML liest einfach die seite aus.. die seite gibt 0 oder 1 zurück, jenachdem, ob name und passwort stimmten oder nicht.
Freue mich auf Hilfe!
DAnKE
Richie