Ergebnis der Suchanfrage

• Forum: Netzwerke

  AW: Datasnap File Upload

    Delphi
    by BeBored, 4. Dez 2011
  Grad gesehen das ich ein SizeOf(Buffer) vergessen hatte. Nun wird die komplette Datei übertragen und eine Exception gibt es auch nicht mehr.
  
  Vielen Dank für die späte Hilfe! :thumb:
• Forum: Netzwerke

  AW: Datasnap File Upload

    Delphi
    by BeBored, 4. Dez 2011
  Das ist bisher der Server:
  
  procedure TServerMethods.UploadFile(str: TStream; Store, FileName: string);
  var
  aFileStream: TFileStream;
  BytesReadCount: Integer;
  Buffer: array of Byte;
  begin
  if not DirectoryExists(ExtractFilePath(ParamStr(0)) + 'Files\' + Store) then
  begin
• Forum: Netzwerke

  AW: Datasnap File Upload

    Delphi
    by BeBored, 4. Dez 2011
  Soweit ich bisher feststellen kann, wird der richtige Dateiname übertragen, aber die Dateien sind immer nur 1024 byte groß.
  Die Exception kommt natürlich auch :)
• Forum: Netzwerke

  AW: Datasnap File Upload

    Delphi
    by BeBored, 4. Dez 2011
  Danke für deine Hilfe zu so später Stunde. :)
  Ich habe deine Änderungen jetzt umgesetzt und mit Server+Client auf einem Rechner funktioniert es auch, aber sobald ich den Server extern öffne und dann übertragen will, gibt es wieder die gleiche Exception. :(
• Forum: Netzwerke

  AW: Datasnap File Upload

    Delphi
    by BeBored, 3. Dez 2011
  Das wurde von Delphi oder besser von der TSQLConnection erstellt. Das wird auch jedesmal wenn ich eine neue Methode implementiere überschrieben.
• Forum: Netzwerke

  AW: Datasnap File Upload

    Delphi
    by BeBored, 3. Dez 2011
  Hier mal die Upload Methode
  
  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;
• Forum: Netzwerke

  AW: Datasnap File Upload

    Delphi
    by BeBored, 3. Dez 2011
  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...
• Forum: Netzwerke

  AW: Datasnap File Upload

    Delphi
    by BeBored, 3. Dez 2011
  In der Listbox steht übrigens der richtige Pfad mit der richtigen Datei. Store und Name sind nur für den Server und soweit ich das sehe auch nicht das Problem.
• Forum: Netzwerke

  Datasnap File Upload

    Delphi
    by BeBored, 3. Dez 2011
  Hallo,
  ich sitze in der Arbeit an einer Client/Server Anwendung die wir mit Datasnap realisieren.
  Sonst lief auch alles, nur seit heute bekomme ich beim Upload einer Datei eine Exception.
  Über einen TOpenDialog wählt man eine Datei. Die wird mit Pfad in eine Listbox eingetragen (lbFiles).
  Hier der Client:
  aFileStream: TFileStream;
  
  for i := 0 to lbFiles.Items.Count - 1 do
  begin
  ...