Problem mit Indy???

[th1984]

Hallo...

ich habe ein Problem mit meinem kleinen Programm... Und zwar bleibt es dauert hängen bzw. reagiert nicht mehr. Es läuft zwar dann nach zwei Minuten weiter, bleibt allerdings erneut hängen. Ich habs mit einer Pause probiert usw, funkt aber nicht wirklich.

Was ist das für ein Programm? Ich möchte damit mit verschiedenen Proxys auf ein Script zugreifen... gleichzeitig oder der Reihe nach, ich habs halt nur der Reihe nach zusammengebracht (und das auch nicht richtig)..

Hier mein kleines Programm: Ich hoffe es kann mir jmd helfen

Delphi-Quellcode:

unit InternetZugriff;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, IEHTTP3, CoolTrayIcon, DB, ADODB;

type
  TForm1 = class(TForm)
    Internet: TIdHTTP;
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    Edit2: TEdit;
    local: TIEHTTP;
    Table: TADOTable;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Delay(dwMilliseconds: Longint); 
var 
  iStart, iStop: DWORD; 
begin 
  iStart := GetTickCount; 
  repeat 
    iStop := GetTickCount; 
    Application.ProcessMessages;
  until (iStop - iStart) >= dwMilliseconds; 
end;


procedure TForm1.Button1Click(Sender: TObject);
  var Proxy: String;
  var Port: Integer;
  var anzahl: Integer;
  var i: Integer;
begin
  table.open;
  table.First;
  anzahl := table.RecordCount;
  for i:=1 to anzahl do begin
    Edit2.Text := table.FieldbyName('ProxyIp').AsString;
    Internet.ProxyParams.ProxyServer := table.FieldbyName('ProxyIP').AsString;
    Internet.ProxyParams.ProxyPort := table.FieldbyName('ProxyPort').AsInteger;
    Try
      Memo1.Text := Internet.Get(Edit1.Text);
      Delay(250);
      Internet.Disconnect;
    Except
    End;
    table.Next;
  End;

end;
end.

Ich danke schon jetzt für eure Hilfe



Thomas