Deutsches Lazarusforum

Hallo zusammen,

ist es möglich ohne Interfaces einzubinden ein MyBitmap := TBitmap.Create zu erzeugen ?

Es ist eine Konsolenanwendung. Die Interfaces produziert zusätzliche 800KB.

Classes , SysUtils , Graphics , LCLIntf , LCLType sind eingebunden.

Benutze Package LCLBase im Project.

Mit ...

Vielen Dank für den richtigen Wink.

Von Klasse abgeleitet wie angegeben.


Type
DELHTTPClient = Class ( TFPHTTPClient )
Private
// Delete a file
Procedure FileDelete ( const AURL , AFieldName , AFileName : string ; const Response : TStream ) ;
end ...

Hallo zusammen,

ich verwende die Komponente fphttpclient in meinem Projekt.

Unter fcl-web - fphttpclient hatte ich eine weitere Procedure eingeschrieben und Lazarus neu kompiliert.


WebDelete : TFPHTTPClient ;
WebDelete := TFPHTTPClient.Create ( NIL ) ;

Die neue Procedure WebDelete.FileDelete ...