procedure TAppseite1.btnAnmeldenClick(Sender: TObject);
var
login : Boolean;
lURL,bURL :
String;
lOutput,bOutput:
String;
i,u : Integer;
lnode,bnode : IXMLNode;
lbenutzername :
String;
lpasswort :
String;
benutzername :
String;
passwort :
String;
postdata : TStringlist;
SessionID :
String;
begin
XMLlogin := NewXMLDocument;
postdata := TStringList.Create;
passwort := edPasswort.Text;
benutzername := edBenutzername.Text;
lURL := '
http://kinobox.net:11800/1.0/logins?apikey=2013dolphinV8';
postdata.Add('
loginname=' + benutzername);
postdata.Add('
password=' + passwort) ;
try
lOutput := idHTTP1.Post(lURL,postdata);
except
on e:
exception do begin
showmessage('
Login fehlgeschlagen' );
exit;
end;
end;
XMLlogin.XML.Text := lOutput;
XMLlogin.Active := true;
IdHTTP1.ConnectTimeout := 3000;
IdHTTP1.Request.UserAgent := '
Mozilla/5.0 (Windows NT 6.2; rv:9.0.1) Gecko/20100101 Firefox/9.0.1';
lnode := XMLlogin.DocumentElement.ChildNodes.FindNode('
SessionID');
SessionID := lnode.Text;
showmessage('
Login erfolgreich');
postdata.Free;
XMLbezahlen := newXMLDocument;
bURL := '
http://kinobox.net:11800/1.0/shows/' + InttoStr(ShowID) + '
/tickets?apikey=2013dolphinV8';
bOutput := idHTTP1.Get(bURL);
XMLbezahlen.XML.Text := bOutput;
XMLbezahlen.Active := true;
IdHTTP1.ConnectTimeout := 3000;
IdHTTP1.Request.UserAgent := '
Mozilla/5.0 (Windows NT 6.2; rv:9.0.1) Gecko/20100101 Firefox/9.0.1';
for u := 0
to XMLbezahlen.DocumentElement.ChildNodes.Count - 1
do begin
bnode := XMLbezahlen.DocumentElement.ChildNodes.Get(u);
cdsBezahlen.Append;
cdsBezahlen.FieldByName('
Position').asInteger := u;
cdsBezahlen.FieldByName('
ID').AsString := bnode.ChildNodes.FindNode('
ID').Text;
cdsBezahlen.FieldByName('
Name').AsString := bnode.ChildNodes.FindNode('
Name').Text;
cdsBezahlen.FieldByName('
Kosten').AsString := bnode.ChildNodes.FindNode('
Price').Text;
cdsBezahlen.Post;
end;
TabItem5.Visible := true;
TabItem5.Enabled := true;
TabItem2.Visible := false;
TabItem2.Enabled := false;
Tabcontrol1.ActiveTab := TabItem5;
Tabcontrol1.TabIndex := TabItem5.
Index;
lblSessionID.Text := SessionID;
end;