Indy 10 funct anders als Indy 9?

[Dragon27]

Hallo, habe folgenden Code den ich von Delphi-Source.de habe:

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPServer;

type
  TForm1 = class(TForm)
    TCPServer1: TIdTCPServer;
    procedure FormCreate(Sender: TObject);
    procedure TCPServer1Execute(AContext: TIdContext);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.TCPServer1Execute(AContext: TIdContext);
begin
 with AThread.Connection do
  begin
    WriteLn('Hello from Basic Indy Server server.');
    Disconnect;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TCPServer.Active := True;
end;

end.

Leider ist es nicht möglich das Projekt zu kompilieren denn er bringt lauter Fehler... warum?
Mit Indy 9 ging es glaub ich mal....

Danke für Eure Hilfe!

[Bernhard Geyer]

Mein Auto macht komische töne - was ist kaputt?

Könntest Du bitte genauer schildern welche Fehler der Compiler meldet?
Nicht jeder hat 'ne funktionierende Glaskugel bei sich herumstehen.

[Dragon27]

Hallo,

also diese Meldungen kommen im Compiler:

Zitat:

[Fehler] Unit1.pas(13): E2003 Undefinierter Bezeichner: 'TIdContext'
[Fehler] Unit1.pas(29): E2003 Undefinierter Bezeichner: 'AThread'
[Fehler] Unit1.pas(32): E2003 Undefinierter Bezeichner: 'Disconnect'
[Fehler] Unit1.pas(38): E2003 Undefinierter Bezeichner: 'TCPServer'
[Fehler] Unit1.pas(38): E2129 Einer Nur-Lesen Eigenschaft kann kein Wert zugewiesen werden
[Fataler Fehler] Project1.dpr(5): F2063 Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Danke gruß

Andy

[Bernhard Geyer]

Für den Fehler TIdContext mußt Du die Unit IdContext in den uses aufnehmen.

Die anderen Fehler deuten darauf hin das der Beispielcode nicht komplett ist (unbekannte Variablen).

[Dragon27]

Hallo,
danke erstmal für die Antwort!

Also ich habe den Quelltext von hier: http://www.dsdt.info/tutorials/indy/?page=2

Sonst habe ich nichts verändert!

Danke für die Hilfe!

[Dragon27]

hallo,

bin ich denn der einzige mit diesem Fehler?



Ich weiß nicht mehr was ich tun soll

Danke Gruß

Andy

[Bernhard Geyer]

Schon meinen ersten Hinweis ( Für den Fehler TIdContext mußt Du die Unit IdContext in den uses aufnehmen) durchgeführt und das Ergebnis untersucht?

Außerdem steht bei deiner Quelle:

Zitat:

Bei den Indy-Demos befindet sich dazu ein kleines Beispielprojekt (Verzeichnis BasicClientServer), bestehend aus zwei Anwendungen, dem Client und dem Server.

Also nimm gefälligst das dort abgelegte Beispiel und nicht irgendwelche Abschnitte/Auszüge die im Tutorial vorhanden sind.

[Dragon27]

Hallo,

ja da hast du schon recht, aber ich wollte hald ein sehr einfaches BEispiel mit Indy. Ich fange damit gerade erst an und das Demoprojekt ist relativ komplex für einen Anfänger.

Deswegen habe ich gefragt was daran falsch ist.

Grüße und danke für die Mühe

Andy

[inherited]

...

Zitat:

procedure TForm1.TCPServer1Execute(AContext: TIdContext);
begin
with AThread.Connection do
...

da liegt der fehler im Beispiel Wird AThread (AThread: TIdPeerThread) mit übergeben bei dir allerdings AContext

[Dragon27]

Hallo,

also hab jetzt alles ausprobier habe mal alles vertauscht etc...

Ich bekomme da nichts hin

Kann mir vielleicht jemand ein Beispiel für Indy10 machen das einfach nur ->Server schickt->Client empfängt-> Client schickt-> Server empfängt macht?

Danke für Eure Hilfe!!