Cara membuat get and post di delphi embarcadero

Jika kamu sedang mendevelop android dengan delphi embarcadero, pasti kamu akan butuh get dan post untuk kirim data ke server.

Ada beberapa cara untuk melakukan post and get di delphi embarcadero, salah satu caranya adalah dengan menggunakan komponen TNetHttpClient.

Berikut contoh source code untuk melakukan get dengan httpclient :

function GetURL(const AURL: string): string;

var

  HttpClient: THttpClient;

  HttpResponse: IHttpResponse;

begin

  HttpClient := THTTPClient.Create;

  try

    HttpResponse := HttpClient.Get(AURL);

    Result := HttpResponse.ContentAsString();

  finally

    HttpClient.Free;

  end;

End;

dan ini adalah contoh source code untuk melakukan post:

procedure TForm6.Button1Click(Sender: TObject);

var

  LHTTP: TNetHTTPClient;

  Params: TStringList;

begin

  LHTTP := TNetHTTPClient.Create(nil);

  try

    Params := TStringList.Create;

    try

      Params.Add('PARAMETER KAMU' );

      Memo1.Lines.Text := LHTTP.Post('URL KAMU', Params).ContentAsString;

    finally

      Params.Free;

    end;

  finally

    LHTTP.Free;

  end;

end;

cukup mudah dan simple kan, bisa dipraktekan sendiri terima kasih

Share :