untuk mengirim data ke php dari delphi menggunakan script seperti di bawah ini
procedure TForm1.Button1Click(Sender: TObject);var param:TStringList;begincase radiogroup1.ItemIndex of0:beginparam:=TStringList.create;param.Clear;param.Add('simpandata1='+edit1.Text);param.Add('simpandata2='+edit2.Text);idhttp1.Post('http://localhost/simpandata.php',param);end;1:beginidhttp1.Get('http://localhost/simpandata.php?simpandata1='+edit1.Text+'&simpandata2='+edit2.Text);end;end;webbrowser1.Refresh;end;procedure TForm1.FormCreate(Sender: TObject);beginwebbrowser1.Navigate('http://localhost/simpandata.php');end;
untuk penerima data menggunakan script php seperti ini
if(!empty($_POST[simpandata1])||!empty($_GET[simpandata1])){ $filename = 'data.txt'; if($_POST[simpandata1]!='') $somecontent = "Penyimpanan data dengan metode POST : $_POST[simpandata1] & $_POST[simpandata2]"; else $somecontent = "Penyimpanan data dengan metode GET : $_GET[simpandata1] & $_GET[simpandata2]"; if (!$handle = fopen($filename, 'w')){ echo "Cannot open file ($filename)"; exit; } if (fwrite($handle, $somecontent) === FALSE) { echo "Cannot write to file ($filename)"; exit; } fclose($handle); }else{ $filename = "data.txt"; if (file_exists($filename)){ $handle = fopen($filename, "r"); $contents = fread($handle, filesize($filename)); echo $contents; fclose($handle); } }pengiriman data dengan menggunakanmetode POST pada pemrograman delphi menggunakan TStringList untuk menyimpan data dan variabel yang akan dikirimkan ke php dan file yang diterima php disimpan ke dalam file data.txt untuk melihat perbedaan antara metode POST dan metode GET
download script contoh di atas di sini
Tidak ada komentar:
Posting Komentar