Ergebnis der Suchanfrage

• Forum: Netzwerke

  AW: Datasnap File Upload

    Delphi
    by himitsu, 12. Sep 2012
  Neee nee, das war nicht zur Fehlerbehandlung ... Ich war nur mal neugierig, wie/ob sich dann die Fehlerposition verschiebt.
  
  Ich bin eher der Meinung, daß der Stream schon direkt nach dem Übertragen freigegeben wird, womit ich schon beim aFileStream.Free; eine Exception erwartet hätte.
  Hmmmm, aber vielleicht hatte es ja dort geknallt und der Debugger zeigte nur die falsche Codezeile an. (macht...
• Forum: Netzwerke

  AW: Datasnap File Upload

    Delphi
    by himitsu, 12. Sep 2012
  Datasnap gibt (standardmäßig) Streams frei, welche übertragen wurden, also wenn man die automatisch generierten Clientklassen verwendet.
  
  Wenn du es selbst nochmal freigibst, dann knallt es natürlich.
  
  
  Vertausche mal aFileStream.Free; und aClient.Free;, oder kommentiere aFileStream.Free; aus.
  
  
  Komisch, alles ab 13:30 war eben noch nicht sichtbar. :shock:
• Forum: Netzwerke

  AW: Datasnap File Upload

    Delphi
    by himitsu, 10. Jan 2012
  TRUE ist halt die Standardeinstellung bei dieser automatisch generierten Klasse.
  
  
  Genau dort, wo ich es auch abfrage?
  (das ist die globale Einstellung für sowas)
  
  Dieser Wert wird vor den automatisch generierten Clientklassen abgefragt und jeweils für deren Objekt-Parameter verwendet.
• Forum: Netzwerke

  AW: Datasnap File Upload

    Delphi
    by himitsu, 10. Jan 2012
  Wie lautet die Exception-Message (daß man auch immer wieder erts nachfragen muß :wall:) und wie ist die Servermethode implementiert?
  
  irgendwo = Wenn man sagt der Owner soll es machen, dann macht Er (DataSnap) das auch.
  
  
  Tipp:
  procedure UploadFile(PfadName, FileName: String);
  var lFileStream: TFileStream;
  begin
  if (FileName <> '') and FileExists(PfadName + FileName) then
• Forum: Netzwerke

  AW: Datasnap File Upload

    Delphi
    by himitsu, 3. Dez 2011
  var
  aFileStream: TFileStream;
  Buffer: array of Byte; // 16 KB
  BytesReadCount: Integer;
  begin
  if not DirectoryExists(ExtractFilePath(ParamStr(0)) + 'Files') then
  MkDir(ExtractFilePath(ParamStr(0)) + 'Files\' + Store);
  aFileStream := TFileStream.Create(ExtractFilePath(ParamStr(0)) + 'Files\' + FileName, fmCreate);
  try
  repeat
• Forum: Netzwerke

  AW: Datasnap File Upload

    Delphi
    by himitsu, 3. Dez 2011
  Jupp, wo "Name" doch ein beliebtes property in allen VCL-Komponenten ist.
  
  
  
  
  Mit Pfad, ohne Pfad, Pfad mit Store oder Pfad ohne Store?
  ExtractFilePath(ParamStr(0)) + 'Files\' + Store
  Name
  ExtractFilePath(ParamStr(0)) + 'Files\' + Name