![]() |
Funktion über mehrere Prozeduren
Hallo Leute!
Wie kann ich eine Funktion schreiben die über mehrere prozeduren geht also beim TWebBrowser z.B document complete und auch downloadcomplete usw. also mehrere prozeduren die zu einer funktion gehören sodass ich z.B nurnoch Datei := Download('bla.zip'); und er dann alles selber macht und dann das ergebnis zurück gibt? |
Re: Funktion über mehrere Prozeduren
es kann sein das ich dein Problem falsch verstehe aber ich würde sagen so:
Delphi-Quellcode:
function Download(AFileName: String): String;
begin result := ''; if Function1(Params) then if Function2(Params) then if Function3(Params) then result := 'irgendwas'; end; |
Re: Funktion über mehrere Prozeduren
Ich denke mal er meinte es so, das quasi mit einem Funktionsaufruf per TWebbrowser eine Datei aus dem I-Net runtergeladen werden soll, ohne das er sich um die Events des Objektes & Co. kümmern muss.
Das würde auf dem Wege nur gehen, wenn du dir ein Objekt baust, was das alles für dich tut. Aber falls das Ziel ist, einfach eine Datei aus dem Netz zu saugen, dann geht das auch ohne den Webbrowser, z.B. so ![]() Gruß Wormid |
Re: Funktion über mehrere Prozeduren
nein es war nur ein beispiel, wie gesagt ich möchte wissen wie ich eine funktion schreibt die dann wenn nötig auch alleine über die prozeduren wie oncomplete usw. geht und alles auswertet und so
|
Re: Funktion über mehrere Prozeduren
Dann geht das meines Wissens nach nur, indem du (wie in deinem Beispiel) den Webbrowser in einen Objekt kapselst, das die benötigen Aktionen durchführt und auf die dafür notwendigen Events reagiert... und dieses Objekt kannst du dann in einer Funktion benutzen um das gewünschte Ziel zu erreichen.
Delphi-Quellcode:
So zum Beispiel... das Objekt "TMyDownloadBrowser" müsste natürlich selbst gebastelt werden, und alles behandeln und tun, was zum download der Datei nötig wäre.
function Download(const FileURL: string): string;
var mdb: TMyDownloadBrowser; begin Result := ''; mdb := TMyDownloadBrowser.Create; try if mdb.Download(FileURL) then Result := mdb.FileContent; finally mdb.Free; end; end; |
Re: Funktion über mehrere Prozeduren
hmm versteh ich nicht, kannst du n komplettes beispiel zeigen oder n tutporial oder so?
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:55 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz