Hier mal die Upload Methode
Delphi-Quellcode:
function TServerMethodsClient.UploadFile(str: TStream; Store:
string; fName:
string): Boolean;
begin
if FUploadFileCommand =
nil then
begin
FUploadFileCommand := FDBXConnection.CreateCommand;
FUploadFileCommand.CommandType := TDBXCommandTypes.DSServerMethod;
FUploadFileCommand.Text := '
TServerMethods.UploadFile';
FUploadFileCommand.Prepare;
end;
FUploadFileCommand.Parameters[0].Value.SetStream(str, FInstanceOwner);
FUploadFileCommand.Parameters[1].Value.SetWideString(Store);
FUploadFileCommand.Parameters[2].Value.SetWideString(fName);
FUploadFileCommand.ExecuteUpdate;
// Genau hier gibt es dann die Exception
Result := FUploadFileCommand.Parameters[3].Value.GetBoolean;
end;
Vielleicht hilft es ja
