Autor Beitrag
cirrus
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 49



BeitragVerfasst: So 01.12.02 14:23 
hallo!
ich will eine klasse erstellen, die ein objekt der klasse TidHttp erstellt.
wie kann ich nun dieses objekt erzeugen? wenn req ein objekt der klasse tidhttp ist müsste es ja heissen: req:=tidhttp.create(TComponent)
ich habe allerdings keine form mit dieser komponente, ich will es nur in der klasse erzeugen. was muss ich nun für TComponent einsetzen?
sorry bin delphi anfänger ;)

_________________
Wenn die Nacht am tiefsten ist der Tag am nächsten
Tino
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Veteran
Beiträge: 9839
Erhaltene Danke: 45

Windows 8.1
Delphi XE4
BeitragVerfasst: So 01.12.02 22:17 
Dann versuch es mal so:
ausblenden Quelltext
1:
req := tIdHttp.Create (nil);					


Gruß
TINO
cirrus Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 49



BeitragVerfasst: Mo 02.12.02 00:58 
Titel: Ereignisroutinen umleiten?
vielen dank, es funktioniert!
habe mich gründlich hier umgeschaut, finde allerdings keine lösung für ein anderes Problem:
innerhalb einer klasse habe ich in objekt der klasse TServerSocket erstellt.
Jetzt weiss ich nur nicht, wie ich die Ereignisroutine OnClientRead dort unterbringen soll...habe versucht es auf eine klasseninterne Prozedur umzuleiten, klappt aber nicht (incompatible types)
eigentlich müsste es doch so klappen:
ausblenden Quelltext
1:
2:
3:
4:
5:
var
serv: TServerSocket;
begin
 serv.OnClientRead:=MeineRoutine;
end;


hoffe mir kann jemand helfen
mfg
cirrus

_________________
Wenn die Nacht am tiefsten ist der Tag am nächsten
Ghost
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 17



BeitragVerfasst: Mo 16.12.02 18:30 
du willst nur auf eine Variable zugreifen, deren du keinen Wert zugewiesen hast. probier mal das:

ausblenden Quelltext
1:
2:
3:
4:
5:
6:
var 
serv: TServerSocket; 
begin 
serv:=TServerSocket(FindComponent('name'));
serv.OnClientRead:=MeineRoutine; 
end;