AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi [Indy9]Wie lasse ich Google für mich übersetzen?
Thema durchsuchen
Ansicht
Themen-Optionen

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

Ein Thema von Kernel32.DLL · begonnen am 18. Dez 2004 · letzter Beitrag vom 4. Jan 2005
 
Benutzerbild von Dani
Dani

Registriert seit: 19. Jan 2003
732 Beiträge
 
Turbo Delphi für Win32
 
#2

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

  Alt 18. Dez 2004, 21:08
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 Bei Google suchenPacketyzer 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
Dani H.
At Least I Can Say I Tried
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:06 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz