Forum Delphi.cz

Delphi => Obecné => Téma založeno: sebik 18-08-2021, 14:46:07

Název: Indy, IdHTTP status do jiného formuláře
Přispěvatel: sebik 18-08-2021, 14:46:07
Prosím o schovívavost, nikde jsem neřešil a ani nevím jak se vlastně mám zeptat googlu  :-\

- chtěl bych mým formulář a na něm Memo1
- další unit1 a v něm funkci Stav(StatusTxt:TStrings): String; Bude se volat z různých formulářů
- z formuláře zavolat funkci text:=Stav(Memo1.Lines);
- funkce by měla, mimo jiné, vytvořit IdHTTP a přiřadit events IdHTTP.OnStatus:=IdHTTPStatus; z unit1 (procedure IdHTTPStatus(ASender: TObject; const AStatus: TIdStatus; const AStatusText: string).Ta by měla vlkádat AStatusText do Memo.Lines na původním formuláři;

Otázka zní: jak toto udělat aby IdHTTP.OnStatus:=IdHTTPStatus „vracela“ text do původního Memo na formuláři?
Na jednom formuláři to samozřejmě funguje. Ale nevím jak to mám „zuviverzálnit“, přesunout do jiného Unitu od kud bych funkci volal z různých oken a ta mi vracela AStatusText vždy do daného formuláře a jeho Memo.

Název: Re:Indy, IdHTTP status do jiného formuláře
Přispěvatel: sebik 18-08-2021, 16:15:03
ještě se zeptám jinak:
- jak definovat v unit1 proměnou, do které by IdHTTPStatus zapisovalo, ale ukazovala by na parametr StatusTxt z funkce Stav?
nebo
- jak předat parametr StatusTxt z fuknce Stav do IdHTTPStatus, ale musí jít stále přiřadit do events IdHTTP.OnStatus. (procedure IdHTTPStatus(ASender: TObject; const AStatus: TIdStatus; const AStatusText: string)?
Název: Re:Indy, IdHTTP status do jiného formuláře
Přispěvatel: < z > 18-08-2021, 22:37:20
Asi hledáš "events"
http://docwiki.embarcadero.com/RADStudio/Sydney/en/Events_(Delphi)

A vzhledem k tomu, že HTTP komunikaci není zrovna vhodné provozovat v hlavním vlákně, tak by bylo vhodné použít vlákna
https://stackoverflow.com/questions/37123765/how-to-use-threads-with-idhttp-in-delphi-10
Název: Re:Indy, IdHTTP status do jiného formuláře
Přispěvatel: sebik 25-08-2021, 08:24:59
Dík, pomohlo mi to.