habe in meiner unit1 "stringstream" durch dein "TfilestreamEx" ersetzt.
jetzt bekomme ich aber schon gleich bei deinem code hier die meldung:
TStreamTransferEvnt = procedure(Sender: TStream; AMethodRes: LongInt) of Object;
undeclared identifier: TStream
was heisst das?
oh man delphi ist glaub ich soviel komplizierter als php.