Datei Download mit Datasnap

[Union]

Ich hoffe doch mal auch nicht. 3 Fehler in einer Zeile.
BytesRCount := lStream.Read(Buffer, SizeOf(Buffer));

[Gor1]

Könntest du mir bitte auf die Sprünge helfen, welche drei Fehler du da siehst?

Ich hatte mich mit dieser Routine an dem Thread http://www.delphipraxis.net/164871-d...-upload-2.html orientiert (da ging es zwar um den Upload, aber das Prinzip ist ja dasselbe).

Der Code lässt sich auch kompilieren und lief bis vor Kurzem ohne Probleme.

[Uwe Raabe]

Zitat von Union:

Ich hoffe doch mal auch nicht. 3 Fehler in einer Zeile.
BytesRCount := lStream.Read(Buffer, SizeOf(Buffer));

Ich kann dir hier leider nicht folgen. Buffer ist ein statisches Array und damit ist der Aufruf m.E. korrekt.

Zitat von Gor1:

Ich habe den Code auf das Wesentliche gekürzt (dass die Routine Downloadfile auf der Client-Seite über eine aus einer dll exportierte Funktion die Server-Methode Downloadfile aufruft, habe ich weggelassen), aber ansonsten ist der Code so, wie er bei mir im Programm steht.

Oder bezog sich deine Antwort auf einen anderen Punkt?

Der Code dürft so nicht compilieren:

Delphi-Quellcode:

    
lStream := DownloadFile(PfadName, FileName);

Hier wird die aktuelle Prozedur rekursiv als Funktion aufgerufen. Das sollte der Compiler anmeckern. Das kann also nicht der reale Code sein. Solange du aber eine Art Zensur bei deinem Code vornimmst, kann man nicht mehr sagen, wo das wirkliche Problem liegen könnte.

Ich glaube dir ja, daß du nur das weglässt, von dem du glaubst, daß es nicht relevant ist. Aber da du nicht weißt, was das Problem verursacht, kannst du nicht wissen, was relevant ist.

[arnof]

Mit den guten TCPIP Komponenten habe ich auch so manchmal meine Probleme:

ich habe es über den IOHandler direkt gelöst und hier auch größere Dateien immer problemlos und schnell übertragen können. ist mal ein anderer Ansatz :

Code:

procedure TFM_Haupt.IdTCPServer1Execute(AContext: TIdContext);
var
  jpg : TJpegImage;
  FStream: TMemoryStream;
begin
  FStream := TMemoryStream.Create;
  jpg := TJpegImage.Create;
  try
    FM_Haupt.RE_LOG.Lines.Add('Bild ist gekommen');
    AContext.connection.IOHandler.ReadStream(FStream);
    FStream.Position := 0;
    jpg.LoadFromStream(FStream);
    jpg.SaveToFile('test.jpg');
    Image1.Picture.LoadFromFile('test.jpg');
  finally
    AContext.connection.Disconnect;
  end;
  FreeAndNil(FStream);
  Image1.Top:=1;
end;

[Gor1]

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;
...

[Gor1]

Hallo arnof,

Zitat:

Mit den guten TCPIP Komponenten habe ich auch so manchmal meine Probleme:

ich habe es über den IOHandler direkt gelöst und hier auch größere Dateien immer problemlos und schnell übertragen können. ist mal ein anderer Ansatz :
...

Danke für die Anregung, das werde ich mal ausprobieren.