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