Autor Téma: Programovaní pro android  (Přečteno 1024 krát)

Leo1124

  • Host
Programovaní pro android
« kdy: 10-04-2016, 21:21:24 »
Zdravím tu všechny - i ty co neporadí  :))
Potřebují vytvořít jednu jednoduchou aplikací která zvládne komunikací s mým servrem.
Jen spustit  přes tlačitko php skript přes HTTP GET.
A stahnout nějake data s php
Půjde to v delphi?
Učit se programovat v javě pro android jen kvuli tomuto se mi moc nechce.
Je velký rozsil v programování v delhi pro win a android?

Offline Radek Červinka

  • Administrátoři
  • Padawan
  • *****
  • Příspěvků: 1822
  • Karma: 73
    • Verze Delphi: D5,D2007, DXE, DXE2 + 2 poslední (Tokyo)
    • O Delphi v češtině
Re:Programovaní pro android
« Odpověď #1 kdy: 14-04-2016, 21:58:39 »
Vytvor novou FMX aplikaci, pridej tlacitko,
Kód: [Vybrat]
uses
  System.Net.httpclient;

procedure THeaderFooterForm.Button1Click(Sender: TObject);
var
  oClient: THTTPClient;
  oStream: TStringStream;
  iStatus: Integer;
  sResponse: string;
  s: string;
  ls: TStringList;
begin
  oClient := THTTPClient.Create;
  oStream := TStringStream.Create;
  try
    iStatus := oClient.Get('http://data.fin.cz/json/subject/25247484.js', oStream, nil).StatusCode;
    iStatus := iStatus div 200;
    if iStatus <> 1 then
    begin
      edtName.Text := 'Error:'+iStatus.ToString;
      Exit;
    end;
    sResponse := Copy(oStream.DataString, length('ico_back(') + 1);
    Delete(sResponse, Length(sResponse) , 1);
  finally
    oStream.DisposeOf;
    oClient.DisposeOf;
  end;

end;
Embarcadero MVP - Czech republic

Offline František

  • Hrdina
  • ****
  • Příspěvků: 301
  • Karma: 3
    • Verze Delphi: primárne v XE5, občaas 10.1 starter, XE, BDS2006
Re:Programovaní pro android
« Odpověď #2 kdy: 03-05-2016, 10:08:20 »
RADEK: a to pripojenie na firebird z mobilu nebude? vid http://forum.delphi.cz/index.php/topic,15169.0.html

 

S rychlou odpovědí můžete používat BB kódy a emotikony jako v běžném okně pro odpověď, ale daleko rychleji.

Upozornění: do tohoto tématu bylo naposledy přispěno před 120 dny.
Zvažte prosím založení nového tématu.

Jméno: E-mail:
Ověření:
Datový typ v Delphi, který má True a False: