Datasnap File Upload

[himitsu]

Jupp, wo "Name" doch ein beliebtes property in allen VCL-Komponenten ist.

Zitat:

Delphi-Quellcode:

MkDir(ExtractFilePath(ParamStr(0)) + 'Files\' + Store)
FileExists(Name)
DeleteFile(Name)
TFileStream.Create(ExtractFilePath(ParamStr(0)) + 'Files\' + Name)

Mit Pfad, ohne Pfad, Pfad mit Store oder Pfad ohne Store?

Delphi-Quellcode:

ExtractFilePath(ParamStr(0)) + 'Files\' + Store
Name
ExtractFilePath(ParamStr(0)) + 'Files\' + Name

PS: Daß die DP Name fett darstellt, sollte dir schon zu Denken geben.

[BeBored]

Ja stimmt mit Name und habe ich (VNC sei dank) auch gleich geändert aber der Fehler kommt nach wie vor am Client.
Ist Store '00000' dann wird die Datei im Ordner Files gespeichert, ist sie anders (z.B. 52125) dann wird der Ordner 52125 in Files angelegt und die Datei dort gespeichert. Der Server liefert auch kein False zurück, bis dahin kommt er garnicht.

...hab es jetzt gefunden... der Fehler war das ich auf Files geprüft habe aber dann immer Files\00000 anlegen wollte. nenene

Ne das war es doch nicht...

[BeBored]

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

[DeddyH]

Zitat von BeBored:

FUploadFileCommand.Text := 'TServerMethods.UploadFile';

Sollte es nicht besser LoadFromFile heißen statt der direkten Zuweisung? Ich kann aber auch mal wieder alles falsch verstehen.

[BeBored]

Zitat von DeddyH:

Zitat von BeBored:

FUploadFileCommand.Text := 'TServerMethods.UploadFile';

Sollte es nicht besser LoadFromFile heißen statt der direkten Zuweisung? Ich kann aber auch mal wieder alles falsch verstehen.

Das wurde von Delphi oder besser von der TSQLConnection erstellt. Das wird auch jedesmal wenn ich eine neue Methode implementiere überschrieben.

[DeddyH]

Jo, dann hab ich das wohl falsch interpretiert, ich hab auch ehrlich gesagt keinen Plan von DataSnap.