Ich erstelle mir mit meiner eigenen von TIdHTTP abgeleitenden Klasse Instanzen von IdHTTP.
Nun würde ich gerne die Funktion Get implementieren und überschreiben. Aber das funktioniert nicht. Nur rerintroduce akzeptiert der Compiler.
Und dann, beim finalen Test, erhalte ich eine Meldung von
Indy, dass das gegebene Protokoll unbekannt sei. Was läuft hier falsch? Ohne mein eigenes Get klappt alles wunderbar.
Delphi-Quellcode:
function Get(AURL: string): string; reintroduce;
function THTTPCustom.Get(AURL: string): string;
begin
inherited;
// work to do ... ShowMessage(AURL);
end;
Ich glaube ich habs aber ich weiß nicht, ob das richtig ist
Delphi-Quellcode:
function Get(AURL: string{$IFDEF STRING_IS_ANSI}; ADestEncoding: IIdTextEncoding = nil{$ENDIF}): string; overload;
function THTTPCustom.Get(AURL: string {$IFDEF STRING_IS_ANSI}; ADestEncoding: IIdTextEncoding = nil{$ENDIF} ): string;
begin
Result := inherited Get(AURL); // ruft IdHTTP Get() auf
end;