请问如何在delphi程序中向web程序提交数据？

Question

当然能够,这是DELPHI的一个重要功能。首先你要先建立Web Server Application应用，然后在HTML中指定该APPLICATION. 在Delphi程序中用Request类得到录入的信息，然后用Response类将回应信息发到前端IE浏览器。

Answer 1

你理解错了，我是要通过delphi应用程序向web上的cgi或其它可执行程序提交数据，而不是要用delphi要做web程序。

Answer 2

你只有通过数据库，Delphi的应用程序和Cgi都访问同一资源，然后Cgi给用户提示。
否则不可能Web用户不访问，你的Cgi就执行程序。另，你的Cgi可以通过调用其它com程序的方法。我做的一个实时统计图就是这样实现的。
我写的Cgi调用另一程序(负责生成jpg并返回)，然后Cgi实时显示!!!

Answer 3

可以试试用WebBrowser的Navigate,在url后面加'?来实现参数的传递'

Answer 4

如果web程序接收get方法的数据倒是可以，但如果web程序只接收使用post方法传来的数据就不行了。

Answer 5

都可以的，你可以通过NMHTTP控件实现
它里面有Get和Post两个函数
 NMHTTP1.get('http://server/path/app?parameter1=a&parameter2=b&...');
 NMHTTP1.post('http://server/path/app','parameter1=a&parameter2=b&...');

Answer 6

下面是Delphi自带的例子
procedure TForm1.Button1Click(Sender: TObject);
var
  NMHTTP1: TNMHTTP;
begin
  NMHTTP1 := TNMHTTP1.Create(Self);
  NMHTTP1.InputFileMode := FALSE;
  NMHTTP1.OutputFileMode := FALSE;
  NMHTTP1.ReportLevel := Status_Basic;
  If CheckBox1.Checked then
  Begin
    NMHTTP1.Proxy := Edit11.Text;
    NMHTTP1.ProxyPort := StrToInt(Edit12.Text);
  End;
  With NMHTTP1.HeaderInfo do
  Begin
    Cookie := Edit5.Text;
    LocalMailAddress := Edit6.Text;
    LocalProgram := Edit7.Text;
    Referer := Edit8.Text;    UserID := Edit9.Text;
    Password := Edit10.Text;
  End;
  NMHTTP1.Get(Edit1.Text);
  Memo1.Text := NMHTTP1.Body;
  Memo2.Text := NMHTTP1.Header;
  If NMHTTP1.CookieIn <> '' then
    ShowMessage('Cookie:'+#13#10+NMHTTP1.CookieIn);
  NMHTTP1.Free;
end;

Answer 7

谢谢！不过这个控件只能post一个数据，我试了很久也没办法一次post超过一个的数据，似乎&并非提交多个数据的分隔符。

Answer 8

用webbrowser应该是最好的方法吧
post也可以实现呀procedure TForm1.Button1Click(Sender: TObject);
var
url, Flags, TargetFrame, Postdata, Headers: Olevariant;
begin
  Url := 'http://search.sina.com.cn/cgi-bin/search/search.cgi';
  TargetFrame:=0;
  Flags:=NavNoHistory;
  headers := '';//StringtoVarArray('Content-Type:application/x-www-form-urlencoded'#13#10);
  Postdata := StringToVarArray('_searchkey=csdn');
  Webbrowser1.Navigate2(URL, Flags, TargetFrame, PostData, Headers);
end; 

Answer 9

StringToVarArray是个什么函数？
好象delphi5中没有这个函数？

Answer 10

function StringToVarArray(const S: string): Variant;
begin
  Result := Unassigned;
  if S <> '' then
  begin
    Result := VarArrayCreate([0, Length(S) - 1], varByte);
    Move(Pointer(S)^, VarArrayLock(Result)^, Length(S));
    VarArrayUnlock(Result);
  end;
end;