Belki Lazım Olabilir
Öncelikler Formumuza
2 Adet Edit
Bir Adet
Button Koyalım
bir Adet Memo
bir tanede IdHTTP
Edit1 kullanıcı adımızı
Edit2 şifremizi yazarak oturum açacağız
ve button on click i ile bilgilerimizi post edeceğiz
bir tanede Memo koyalım giriş yaptığımız görmek için kaynak kodları oraya atacağız
Kod: Tümünü seç
String sReturn, sReturn2;
String GirisParametreOku()
{
try{
sMesajSorguCevab = Form1->IdHTTP1->Get("http://www.joomlasiteniz.com/index.php?option=com_users&view=login");
}catch(Exception *e)
{
Application->ShowException(e);
}
return sMesajSorguCevab;
}
void GirisParametreSuz(String sDeger,String sBasi, String sSonu)
{
int iBasi , iSonu;
iBasi = (sDeger.Pos(sBasi) - 1 ) + sBasi.Length();
sDeger.Delete(1,iBasi);
iSonu = sDeger.Pos(sSonu) - 2;
sReturn = sDeger.SubString(1,iSonu) ;
Form1->Memo1->Lines->Add(sReturn);
sDeger.Delete(1,iSonu);
iBasi = (sDeger.Pos("hidden\" name=") );
sDeger.Delete(1,(iBasi+13));
iSonu = sDeger.Pos("\" value");
sReturn2 = sDeger.SubString(1,(iSonu-1)) ;
Form1->Memo1->Lines->Add(sReturn2);
//return sMesajSorguCevab;
}
String GirisYap()
{
TStringList *liste = new TStringList ;
liste->Add("username="+Form1->Edit1->Text);
liste->Add("password="Form1->Edit2->Text);
liste->Add("return="+sReturn);
liste->Add(sReturn2+"=1");
ShowMessage(liste->Text);
try{
sMesajSorguCevab = Form1->IdHTTP1->Post("http://www.joomlasiteniz.com/component/users/?task=user.login",liste);
}catch(Exception *e)
{
Application->ShowException(e);
}
return sMesajSorguCevab;
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
GirisParametreSuz(GirisParametreOku(),"name=\"return\" value=\"", " />");
Memo1->Lines->Add(GirisYap());
}