http-server kontaktieren

[StanY]

Delphi-Quellcode:

procedure TfrmMain.CheckNews();
begin
  tcpClient.RemoteHost := 'http://www.heise.de';
  tcpClient.RemotePort := '80';
  tcpClient.Open;
end;

Das ist der Quellcode von CheckNews();. Er soll bewirken, dass der tcpClient (TTcpClient) auf heise.de connected.

Hier bekomme ich jedoch SocketError 10035.

Warum?

Wie kann ich die Daten mit TTcpClient abfragen?

[Dax]

Wenn du Indy benutzt, musst du zuerst CLient.Connect() aufrufen, wenn du Indy nicht benutzt, rate ich dir, das zu tun. :D

[Neuni]

Was soll der denn dann von heise.de bekommen? Oder was willste überhaupt machen mit heise.de?

[jfheins]

Es wäre nützlich, nicht nur die Error-Numer anzugeben, sondern auch die Fehlermendung, die da lautet:

Zitat:

Ein nicht blockierender Socketvorgang konnte nicht sofort ausgeführt werden

[StanY]

Naja. Ich will zwecks den News-Ticker zu heise connecten.

Wie ich die News-Abrufe, da gibt es ja schon zahlreiche Threads hier. Allerdings sollte ich ja beim Connecten keine Fehler bekommen, da ein Senden von Daten sonst recht schwer ist (;.

@Dax: Ich weiß, dass Indy besser ist, nur muss es ja mit TTcpClient-Komponenten auch gehen - und das könnte ich gerne.

edit:

@jfheins: Wie meinen? Oo

[Basilikum]

ich tippe mal auf folgendes:

Delphi-Quellcode:

procedure TfrmMain.CheckNews();
begin
  tcpClient.RemoteHost := 'www.heise.de'; // anstelle 'http://www.heise.de'
  tcpClient.RemotePort := '80';
  tcpClient.Open;
end;

[StanY]

@Basilikum: Selber Fehler \:. Das ändert anscheind gar nichts \:. (Btw. als Beispiel in der Hilfe steht auch http://www.site.com)

[StanY]

lol,.. so schwer kann das doch nicht sein oder? oO

edit: sry 4 doppelpost *push*

[StanY]

tut mir echt leid, wegen dem ganzen Spam (kann meine Beiträge nemmer löschen), aber das kann doch nicht so schwer sein? oO

Ich habs jetzt auch mal mit Indy probiert... Auch das blieb erfolglos. . .

[gekmihesg]

nimm doch einfach IdHTTP!
dann kannst du einfach mit idHttp1.get('http://www.heise.de') die seite laden

[StanY]

Ja, aber warum?

Es MUSS doch auch mit TTCPClient Komponenten gehen? \:

Ich arbeitete gerne mit diesen... aber wenn niemand für dieses für mich recht banal erscheinendes Problem keine Lösung weiß, werde ich das benutzen. Danke.

[XHelp]

Also bei mir klappt es ohne 'http://'. Ansonsten versuche statt .Open :

Delphi-Quellcode:

tcpClient.Active:=true;

vielleicht bringt das was.

[StanY]

Delphi-Quellcode:

unit Unit1;

interface

uses
  SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms, 
  QDialogs, QStdCtrls, Sockets, QExtCtrls;

type
  TfrmMain = class(TForm)
    tcpClient: TTcpClient;
    tmrTimer: TTimer;
    procedure tcpClientError(Sender: TObject; SocketError: Integer);
    procedure tcpClientConnect(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    procedure CheckNews();
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.xfm}

procedure TfrmMain.CheckNews;
begin
  tcpClient.RemoteHost := 'http://www.heise.de';
  tcpClient.RemotePort := '80';
  tcpClient.Open;
end;

procedure TfrmMain.tcpClientError(Sender: TObject; SocketError: Integer);
begin
  ShowMessage(IntToStr(SocketError));
end;

procedure TfrmMain.tcpClientConnect(Sender: TObject);
begin
  ShowMessage('connected');
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  CheckNews;
end;

end.

Hier der komplette Quellcode. Ich versuchte es nun schon mit Active := true und Connect statt Open (bei CheckNews). Immernoch derselbe Fehler. ):

edit: tcpClient ist ein TTcpClient und frmMain halt die Form1.