Per HTTP einen Befehl senden

[Rackergen2]

Benutze nicht den POST-Befehl, sondern den GET Befehl... bei Indy hatte ich probleme, ich benutze immer diese Funtion:

Delphi-Quellcode:

Function GetHTML(AUrl: string): string; 
var 
  databuffer : array[0..4095] of char; 
  ResStr : string; 
  hSession, hfile: hInternet;
  dwindex,dwcodelen,dwread,dwNumber: cardinal;
  dwcode : array[1..20] of char;
  res    : pchar; 
  Str    : pchar; 
begin 
  ResStr:='';
  hSession:=InternetOpen('InetURL:/1.0', 
                         INTERNET_OPEN_TYPE_PRECONFIG, 
                         nil, 
                         nil, 
                         0); 
  if assigned(hsession) then 
  begin 
    hfile:=InternetOpenUrl( 
           hsession, 
           pchar(AUrl), 
           nil, 
           0, 
           INTERNET_FLAG_RELOAD, 
           0); 
    dwIndex  := 0; 
    dwCodeLen := 10; 
    HttpQueryInfo(hfile,
                  HTTP_QUERY_STATUS_CODE,
                  @dwcode, 
                  dwcodeLen, 
                  dwIndex); 
    res := pchar(@dwcode); 
    dwNumber := sizeof(databuffer)-1; 
    if (res ='200') or (res ='302') then 
    begin 
      while (InternetReadfile(hfile, 
                              @databuffer, 
                              dwNumber, 
                              DwRead)) do 
      begin 
        if dwRead =0 then 
          break; 
        databuffer[dwread]:=#0; 
        Str := pchar(@databuffer); 
        resStr := resStr + Str; 
      end; 
    end 
    else 
      ResStr := 'Status:'+res; 
    if assigned(hfile) then 
      InternetCloseHandle(hfile); 
  end;
  InternetCloseHandle(hsession);
  Result := resStr; 
end;

Aufrufen kannst du die Funktion dann so:

GetHTML('http://192.168.0.200/apicmd.asp?cmd=play&action=wasweissich'); Möglicherweise in eine Variable rein und du hast die Antwort... so hab ich's bei unserem Router gemacht...