Napisao sam ti jedan jednostavan primer i za GET i za POST varijantu, pa upotrebi ako ti bude korisno.
PHP skripta izgleda ovako (nazvao sam je reg.php):
Code (php):<?php
if($_POST['REGISTARSKI_BROJ'] == 12345678) {
echo "Cestitamo, registarski broj {$_POST['REGISTARSKI_BROJ']} je ispravan!";
} elseif($_GET['REGISTARSKI_BROJ'] == 12345678) {
echo "Cestitamo, registarski broj {$_GET['REGISTARSKI_BROJ']} je ispravan!";
} else {
echo "Nece moci";
}
?>
Program u paskalu (Lazarus) sa korišćenjem
synapse httpsend biblioteke:
Code (delphi):unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
btnGet: TButton;
btnPost: TButton;
EditRegistarskiBroj: TEdit;
Label1: TLabel;
MemoOdgovor: TMemo;
procedure btnGetClick(Sender: TObject);
procedure btnPostClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
uses
httpsend;
{$R *.lfm}
{ TForm1 }
procedure TForm1.btnGetClick(Sender: TObject);
var
s: TStrings;
begin
s := TStringList.Create;
HttpGetText('localhost/reg.php?REGISTARSKI_BROJ=' + EditRegistarskiBroj.Text, s);
MemoOdgovor.Append('Odgovor (GET): ' + s.Text);
s.Free;
end;
procedure TForm1.btnPostClick(Sender: TObject);
var
HTTP: THTTPSend;
Data: TStringStream;
Result: Boolean;
begin
Data := TStringStream.Create('REGISTARSKI_BROJ=' + EditRegistarskiBroj.Text);
HTTP := THTTPSend.Create;
try
HTTP.Document.CopyFrom(Data, 0);
HTTP.MimeType := 'application/x-www-form-urlencoded';
Result := HTTP.HTTPMethod('POST', 'localhost/reg.php');
Data.Size := 0;
if Result then
begin
Data.Seek(0, soFromBeginning);
Data.CopyFrom(HTTP.Document, 0);
MemoOdgovor.Append('Odgovor (POST): ' + Data.DataString);
end;
finally
Data.Free;
HTTP.Free;
end;
end;
end.