Danke für die kleine Nachhilfekunde in sachen Classen und Units!
Was ich dann nur nicht so ganz verstehe...
Im LANFS_KERNAL hab ich doch folgendes deklariert unter VAR:
var LANFS_SYSTEM :TLANFS_KERNAL;
auf Lanfs_system kann ich ohne create zugreifen, also auch auf die Proceduren in lanfs_system.
Das OnReceiveData ist doch genau da deklariert wo auch die Proceduren deklariert sind, die in lanfs_system funktionieren....
Delphi-Quellcode:
unit LANFS_KERNAL;
interface
uses [...]
type
TRECEIVEDDATA =
procedure(Sender: TObject; MemStream: TMemoryStream)
of Object;
TLANFS_KERNAL =
class
fReceivedData: TRECEIVEDDATA;
public
procedure ReceiveStream(Acontext:TidContext);
procedure Start(port:integer);
procedure Stop();
procedure SendStream(Stream: TFilestream;Host:
String);
property OnReceivedData: TRECEIVEDDATA
read fReceivedData
write fReceivedData;
//nämlich genau hier
end;
var LANFS_SYSTEM :TLANFS_KERNAL;
TCPClient1: TIdTCPClient;
TCPServer1: TIdTCPServer;
Warum kann ich dann also auf die Proceduren Start, ReceiveStream, Stop SendStream zugreifen aber nicht auf das OnReceived Data?
Würdest du eigentlich generell sagen, dass die
Unit so ziemlich unstrukuriert etc ist?
//edit: Ich meine wäre es vielleicht sinnvoller einfahch alles in eine Klasse zu schreiben ohne
Unit? *keine ahnung hab*