Mit proxy verbinden (Indy)

[TheKleini666]

Hey,
also unsere Schule hat nen eigenen Proxy, mit den man dann Schul-HP's aufrufen kann, welche man normlaerweise nur aus schul PC's öffnen kan naja egal lange rede kruzer sinn:
Mein code funkt nicht :/

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdContext, IdBaseComponent, IdComponent, IdCustomTCPServer,
  IdTCPServer, IdCmdTCPServer, IdHTTPProxyServer, StdCtrls, IdTCPConnection,
  IdTCPClient, IdHTTP, ExtCtrls, IdAuthentication;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    IdHTTP1: TIdHTTP;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    Button4: TButton;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure IdHTTP1Connected(Sender: TObject);
    procedure IdHTTP1Disconnected(Sender: TObject);
    procedure IdHTTP1ProxyAuthorization(Sender: TObject;
      Authentication: TIdAuthentication; var Handled: Boolean);
  private

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Add('Verbinden...');
  IdHTTP1.ProxyParams.ProxyServer := 'proxy.schule.com';
  IdHTTP1.ProxyParams.ProxyPort := 3259;
  IdHTTP1.Get('http://schule.com')
end;




procedure TForm1.IdHTTP1Connected(Sender: TObject);
begin
memo1.Lines.Add('Verbunden.');
button3.Enabled := True;
button2.Enabled := False;
end;

procedure TForm1.IdHTTP1Disconnected(Sender: TObject);
begin
memo1.Lines.Add('Disconnected.');
button3.Enabled := False;
button2.Enabled := True;
end;


procedure TForm1.IdHTTP1ProxyAuthorization(Sender: TObject;
  Authentication: TIdAuthentication; var Handled: Boolean);
begin
idhttp1.ProxyParams.ProxyUsername :=  edit1.Text;
  idhttp1.ProxyParams.ProxyPassword := edit2.Text;
end;

end.

doch ich bekomm immer error:
Proxy Authentication Required

aber ich hab doch Username und Passwort :O

ich hoffe ihr könnt mir helfen :)
Danke schon mal im Voraus :)

[omata]

[ot]

Zitat:

Zitat von TheKleini666 (Beitrag 1125631)

Mein code funkt nicht

Funken ist eigentlich etwas anderes. CB oder Amateur mäßig auf 2m oder auch 70cm.

Bei einem Computer funkt eigentlich nur der WLAN-Adapter oder die Funk-Maus. Aber Quellcode :gruebel:

Sorry, aber bei der Vorlage, konnte ich jetzt nicht anders.
[/ot]

[TheKleini666]

jaja :D
Umgangssprache :)

Kann mir denn sonst keiner helfen?

[Thom]

Zitat:

Zitat von omata (Beitrag 1125633)

Zitat:

Zitat von TheKleini666 (Beitrag 1125631)

Mein code funkt nicht

CB oder Amateur mäßig auf 2m oder auch 70cm.

Ja, sowas lag mir auch auf der Zunge beziehungsweise auf der Tastatur... :lol:

Wie sieht's denn aus, wenn Du einen Browser nimmst (dort den Proxy einstellen)? Kommst Du mit ihm auf die Seite? Ich vermute nämlich, daß der Zugang von außerhalb (WAN) komplett durch einen Firewall blockiert wird. Denn Du schriebst ja selber, daß Ihr nur innerhalb der Schule (LAN) Zugriff habt.

Edit:
Hmm... Der Proxy meldet sich ja. Wie schon geschrieben: Probiere es mit einem Browser. Dann sollte eigentlich ein Anmeldefenster kommen. Wenn das klappt, kann man weiter überlegen.

[TheKleini666]

ja dort kommt einer, deswegen hab ich ja dass mit authentication gmacht ;)

[Thom]

Das war nicht meine Frage. :wink:
Die lautete: Funktioniert der Zugriff über den Browser oder nicht?
Kommst Du also mit Hilfe des Browser nach Eingabe der Zugangsdaten auf die interne Homepage? Ja oder Nein?
Denn nur, wenn das funktioniert, kannst Du auch auf Erfolg mit den Indy-Komponenten hoffen.

[geskill]

Wenn du das genau so machen willst, dann musst du auf dem Formulardesigner in der HTTP-Komponente in dessen Optionen unter HTTPOptions hoInProcessAuth auf True umschalten.
Möglicherweise musst du vor deinem GET-Request noch folgende Zeile einfügen:

Delphi-Quellcode:

IdHTTP1.ProxyParams.BasicAuthentication := True;

[TheKleini666]

Wenn ich in Frefoy den proxy eingebe und zugangsdaten eingebe kan ich darauf zu greifen, mit meinen Programm aber nicht.

BasicAuthentication hatte ich schon mal mit true getestet funktionierte auch nicht, aber ich probiere es noch einmal :)

/edit: Wie gesagt auch wenn ichs auf true stelle ghet es nicht :(

[geskill]

Mir ging es in erster Linie auch um das *extra* dick Markierte.

[TheKleini666]

oh
das dürfte ich überlesen haben ich probiers gleich :)

/edit: ne funktioniert nicht :O