[Indy9]Wie lasse ich Google für mich übersetzen?

[Dani]

Hi,
ich glaub nicht, dass man die Google Sprachtools automatisiert benutzen darf... ich würde aber mal darauf tippen, dass per POST das Formular an den Webserver übertragen wird. Mit Packetyzer könntest du ja mal nachschauen, wie so ein Request aufgebaut ist.

Hab vor kurzem ein Konsolenprogramm hingekritzelt, das über das Web-Interface des Routers die Verbindung beenden kann. Vielleicht ist der Code irgendwie nützlich für dein Vorhaben.

Delphi-Quellcode:

program CloseConn;

{$APPTYPE CONSOLE}

uses
  Windows,
  IdHTTP,
  Classes,
  SysUtils;

const
 // "pppoeAct=2"    ====>   Verbindung beenden
 code =  'Load=Q&connTime=00000000&connStatus=Connected&getIP=OK&pppoeAct=%s&Button=Apply';
 RouterHost =  'http://192.168.0.1/post-query';

var HTTP: TIdHTTP;
    ResponseStream, InputStream : TStream;

begin
 try
  InputStream := TStringStream.Create(code);
  ResponseStream := TFileStream.Create('C:\RouterResponse.htm', fmCreate or fmShareExclusive);
  HTTP := TIdHTTP.Create(nil);
  With HTTP do
   begin
    ConnectTimeout := 10000;
    Host := RouterHost;
    Request.BasicAuthentication := true;
    Request.Username := 'admin';
    Request.Password := 'swordfish';
    Request.Referer := 'http://192.168.0.1/pppoestatus.htm';
    Request.ContentType := 'application/x-www-form-urlencoded';
    Request.AcceptEncoding := 'gzip, deflate';
    Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.14322)';
    Request.ContentLength := Length(code);
    Request.Connection := 'Keep-Alive';
    AuthRetries := 0;
    Post(RouterHost, InputStream, ResponseStream);
   end;
 except
  on E: Exception do
   begin
    WriteLn(E.Message);
    ReadLn;
    exit;
   end;
 end;   
end.

[Edit#3]Mach es doch so: Wenn ein Wort nicht gefunden wird, kann der User beantragen, dass das Wort an deinen Webserver geschickt wird, wo du dann eine passende Übersetzung suchst, welche dann per "Wortschatz-Update" (Textdatei mit Update-Anweisungen?) für alle User verfügbar wird