Einzelnen Beitrag anzeigen

Kamil

Registriert seit: 17. Aug 2002
178 Beiträge
 
#4

Re: IdHTTPServer-control hätte gerne zusätzliches Info

  Alt 29. Sep 2003, 01:21
Ah, jetzt ist mir eingefallen wie ich es gemacht habe:

Delphi-Quellcode:
function StringToPostData( Str:String):OleVariant;
var
  i,l:Integer;
  PostDataArray:Variant;
begin
  l:=Length( Str);
  PostDataArray:=VarArrayCreate([0,l-1],varByte);
  for i:=0 to l-1 do
    PostDataArray[i]:=Byte( Str[i+1]);
  Result:=PostDataArray;
end;

...
var
  URL,Flags,TargetFrameName,PostData, Header: OleVariant;
begin
  ...
  PostData:=StringToPostData(...);
  Header:='Content-Type: application/x-www-form-urlencoded'#13#10;
  IE.Navigate(URL,Flags,TargetFrameName,PostData, Header);
Es hat immer problemlos funktioniert.
  Mit Zitat antworten Zitat