Hallo Uwe,
du hast recht, da habe ich etwas zu viel gekürzt. Es sollte beim Client eigentlich
lStream := DownloadFileL(PfadName, FileName);
heißen, wobei diese Funktion wie beschrieben aus einer
Dll kommt:
function DownloadFileL(PfadName: string; FileName: string): TStream; external 'DSnapClient.dll';
In der
Dll schaut die Funktion wie folgt aus:
Delphi-Quellcode:
function DownloadFileL(PfadName: string; FileName: string): TStream;
begin
if Assigned(ConvertDataModule) then
Result := ConvertDataModule.ServerMethodsClient.DownloadFile(PfadName, FileName)
else Result := Nil;
end;
und ConvertDataModule kapselt einfach die ClientServermethoden des Datasnap-Servers:
Delphi-Quellcode:
TConvertDataModule = class(TDataModule)
DSnapSERVER: TSQLConnection;
private
FServerMethodsClient: TServerMethodsClient;
...
public
property ServerMethodsClient: TServerMethodsClient read GetServerMethodsClient write FServerMethodsClient;
...