delphi的客户端和php的服务端如何通信，大家都来讨论下！ ( 积分: 96 )

用delphi做的客户端，php做的服务端，他们之间该如何通信啊？
eg: 客户端把机器码传给服务端，
服务端把一些配置信息传给客户端，该如何实现啊？

方法一：
可以使用Indy组件idhttp,进行get和post数据
这样对任何web服务端都可以，
方法二：
做个WebService，delphi客户端调这个

to treemon,
谢谢了，我看看
欢迎大家来讨论

to treemon,
能不能给出源码就更好了

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP;

type
TForm1 = class(TForm)
IdHTTP1: TIdHTTP;
btn1: TButton;
mmo1: TMemo;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
mmo1.Text := IdHTTP1.Get('http://www.zhangsk.cn/');
end;

end.

procedure TForm1.btn1Click(Sender: TObject);
var
PostList:TStringList;
s:string;
begin
try
PostList:=TStringList.Create;
PostList.Add('aa=1');
PostList.Add('bb=2');
try
s:=IdHTTP1.Post('http://localhost/getpost.asp',PostList);
except
end;
finally
PostList.Free;
IdHTTP1.Free;
end;
end;

这时POST数据

procedure TForm1.btn2Click(Sender: TObject);
var
Response: TStringStream;
PostList:TStringList;
begin
Response := TStringStream.Create('');
PostList :=TStringList.Create;
PostList.Add('aa=1');
PostList.Add('bb=2');
try
IdHTTP1.Post('http://localhost/getpost.asp',PostList,Response);
mmo1.Lines.Add('Data:' + #13#10 + Response.DataString);
finally
PostList.Free;
Response.Free;
end;
end;


这样更好懂些，把post后的网页数据取回再打印出来看看
asp页面代码为
<%
response.write request(&quot;aa&quot
%>

接受答案了.