In Funktionen auf Objekte zugreifen..

[th1984]

Hallo,

rund 2 Stunden google Zeit haben nichts gebracht, ich bin ratlos. Und zwar kann ich in einer Funktion auf kein Objekt zugreifen. Also nicht auf das TrayIcon Objekt und auch nicht auf das Objekt mit dem ich im Internet eine Seite runterlade. Wahrscheinlich muss man das auch irgendwo deklarieren, aber ich hab ja keine Ahnung.

Hier meine Deklarationen:

Delphi-Quellcode:

unit server;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPServer, StdCtrls,
  CoolTrayIcon, Menus, IEHTTP3, ComCtrls;

type
  TForm1 = class(TForm)
    Server: TIdTCPServer;
    Edit1: TEdit;
    TrayIcon: TCoolTrayIcon;
    PopupMenu1: TPopupMenu;
    Beenden1: TMenuItem;
    Anzeigen1: TMenuItem;
    N1: TMenuItem;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label3: TLabel;
    Internet: TIEHTTP;
    procedure ServerExecute(AThread: TIdPeerThread);
    procedure Beenden1Click(Sender: TObject);
    procedure Anzeigen1Click(Sender: TObject);
    procedure TrayIconStartup(Sender: TObject; var ShowMainForm: Boolean);

  private
    { Private declarations }
    aktVersion: String;

  public
    { Public declarations }
  end;

Und hier meine Funktion...

Delphi-Quellcode:

function CheckVersion(): String;
  var IntVersion: TStringList;
begin

  Internet.get_url('http://update.tictactom.com/version.txt');
  IntVersion := Internet.result_sl;
  result := IntVersion[0];

end;

Aber es kommt jedes Mal der Fehler Undeclared identifier: 'Internet'

Würde mich freuen wenn mir da jemand Helfen könnte


Danke im Vorraus

Thomas

[fkerber]

Hi!

Hier stand was falsches

Ciao fkerber

[Sharky]

Hai th1984,

ersteinmal: "Herzlich Willkommen in der Delphi-PRAXIS".

Das Problem ist das deine Funktion keine Methode deiner Form1 ist. Am einfachsten wäre

Delphi-Quellcode:

type
  TForm1 = class(TForm)
.
.
.
  private
    { Private declarations }
    aktVersion: String;
    function CheckVersion(): String; 
.
.

function TForm1.CheckVersion(): String; 
  var IntVersion: TStringList;
begin
  Internet.get_url('http://update.tictactom.com/version.txt');
  IntVersion := Internet.result_sl;
  result := IntVersion[0];
end;
.
.

[Phoenix]

Erm. Ist doch klar:

Die Funktion gehört doch gar nicht zu dem Objekt!

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Server: TIdTCPServer;
    Edit1: TEdit;
    ...
    procedure ServerExecute(AThread: TIdPeerThread);
    procedure Beenden1Click(Sender: TObject);
    procedure Anzeigen1Click(Sender: TObject);
    procedure TrayIconStartup(Sender: TObject; var ShowMainForm: Boolean);
    function CheckVersion: string;
    ...
  end;

Und dann:

Delphi-Quellcode:

function TForm1.CheckVersion(): String;
  var IntVersion: TStringList;
begin
  Internet.get_url('http://update.tictactom.com/version.txt');
  IntVersion := Internet.result_sl;
  result := IntVersion[0];
end;

Edit: Eigentlich sollten (Feuer-)Vögel doch schneller fliegen als Haie schwimmen, oder??

[th1984]

Danke, für die Lösung...

Schönes Wochenende noch

Thomas