Php Api Nasıl Kullanılır?

[Nomercy]

Arkadaşlar Merhabalar;

Benim bir sorunum var delphi 7 de php api kullanmak istiyorum bunun için bir örnek proje var mı elinizde?

Api sonucu True veya False döndürecek....

[AliZairov]

İyi akşamlar. Api kendiniz mi tasarladınız? Yoksa hazır bir sitedenmi kullanıcaksız?

[esistem]

php api dediğiniz şey bir php dosyasıdır, kısaca,

Kod: Tümünü seç

var
Browser : TIdHTTP;
Gelen:STRING;
begin
Browser := TIdHTTP.Create(nil);
try
GELEN:=Browser.Get('http://www.xxx.com/yyy.php?id='+id.Text);
except
showmessage('hata');
end;
Browser.Free;
end;

şeklinde kullanabilirsiniz.

[Nomercy]

php yi kendim kodladım apileri de hazır sadece programa bağlayacam onu yapamadım

[mrmarman]

Merhaba.

- @esistem Basitçe tarif etmiş zaten.

- PHP'yi, Indy IdHttp ile GET veya POST hangisi gerekliyse parametreleriyle çağrıla, gelen cevabi html veya json neyse onu parse et.
- Delphi yakasındaki PHP ile haberleşen işlem bu kadar.

[brs]

İşinize yarar mı bilemiyorum, xml veri çekmek için bir ara kullanmıştım

Kod: Tümünü seç

procedure TForm1.ToolButton4Click(Sender: TObject);
var
  i: Integer;
  XMLNode: IXMLNode;
  LI: TListItem;
begin
  try
    with TIdHTTP.Create(nil) do
    begin
      with XMLDocument1 do
      begin
        ListView1.Items.Clear;
        LoadFromFile('http://www.xxxxx.net/mobil/xml/channel.xml');
        Active := True;
        XMLNode := DocumentElement.ChildNodes.FindNode('item');
        while XMLNode <> Nil do
        begin
          with ListView1.Items.Add do
          begin

            Caption := '  ' + IntToStr(ListView1.Items.Count);
            SubItems.Add(XMLNode.ChildNodes['title'].Text);
            SubItems.Add(XMLNode.ChildNodes['link'].Text);
            SubItems.Add(XMLNode.ChildNodes['logo'].Text);
            SubItems.Add(XMLNode.ChildNodes['yayin'].Text);
            ListView1.SmallImages := WebImageList;
            XMLNode := XMLNode.NextSibling;
          end;
        end;
      end;
    end;
  except
  end;
  XMLDocument1.Active := False;
end;