Entwickler-Ecke :: Thema anzeigen - Datei Verschicken (SimpleTCP) Problem

DeltaEx - Mo 22.10.07 14:40
Titel: Datei Verschicken (SimpleTCP) Problem

Hallo zusammen,

Wenn ich eine Datei verschicke in dem Fall eine *.exe Datei, kommt bei mir auf der anderen Seite paar bytes weniger an.

Orignal: 619.008 Bytes
Kopie: 614.400 Bytes

Woran liegt das wohl?

Hier der Code vom Server ... der Server Sendet:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm3.UpdateClient1Click(Sender: TObject);
var
 Stream: TMemoryStream;
 ID:Integer;
begin
 if UpdateOpenDialog.Execute then
 begin
    //Stream := TFileStream.Create(UpdateOpenDialog.FileName,fmOpenRead);
    Stream := TMemoryStream.Create;
    try
     ID:=ID_Update;
     Stream.WriteBuffer(ID,SizeOf(ID));
     Stream.LoadFromFile(UpdateOpenDialog.FileName);
     Form1.Server.SendStream(Connection, Stream);
    finally
     Stream.Free;
    end;
 end;
end;

Der Client der Empfängt:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm2.TCPClientInput(Sender: TObject; Stream: TStream;
var DisposeStream: Boolean);
var
  Str:String;
  ID:Integer;
  UpdateFileStream:TFileStream;
begin
    UpdateFileStream := TFileStream.Create(ExtractFilePath(ParamStr(0))+'update.exe',fmCreate);
    try
      UpdateFileStream.CopyFrom(Stream,Stream.Size);
    finally
     UpdateFileStream.Free;
    end;
end;

Woran kann es liegen?

Danke im voraus.

Moderiert von Narses: --- Beiträge zusammengefasst ---

Ahhh wenn ich beim Client Stream.Size-4 hinzufüge:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm2.TCPClientInput(Sender: TObject; Stream: TStream;
var DisposeStream: Boolean);
var
  Str:String;
  ID:Integer;
  UpdateFileStream:TFileStream;
begin
    UpdateFileStream := TFileStream.Create(ExtractFilePath(ParamStr(0))+'update.exe',fmCreate);
    try
      UpdateFileStream.CopyFrom(Stream,Stream.Size-4);
    finally
     UpdateFileStream.Free;
    end;
end;

Dann bekomme ich mehr:

Original: 619.008 Bytes
Kopie: 619.004 Bytes

mmhh sehr komisch. Die exe ist aber immer noch kaputt :-(

Moderiert von Narses: Code- durch Delphi-Tags ersetzt
Moderiert von Narses: Topic aus Open Source Units verschoben am Mo 22.10.2007 um 14:43

JayEff - Do 08.11.07 01:19

DeltaEx hat folgendes geschrieben:

ich brächte echt dringend hilfe

So ungern ich es sage, aber hier im Delphi-Forum hat man mit Netzwerkfragen Pech. Keine meiner netzwerktechnischen Fragen ist je beantwortet worden... (zumindest nicht so, dass mein Programm danach liefe) Schätze, was diese Sachen betrifft gibt es zu viele Faktoren (Proxy, Router, bestimmte Einstellungen etc.), als dass man eine klare Antwort auf diese Fragen geben könnte.
Ich tippe darauf, dass dein Code völlig korrekt ist und der Fehler in irgendeiner Einstellung steckt, oder einer Hardwarekonfiguration...
Das mit dem FTP Server/Client ist natürlich ein guter Ansatz, vorallem, weil ich es selbst so versucht hab, natürlich erfolglos. Wenn du eine Lösung (mit FTP?) gefunden hast, poste sie doch bitte, damit ich's auch mitbekomme ;)

Viel Erfolg...

alzaimar - Do 08.11.07 09:22

Ändere doch mal den Client

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm2.TCPClientInput(Sender: TObject; Stream: TStream;
var DisposeStream: Boolean);
var
  Str:String;
  ID:Integer;
  UpdateFileStream:TFileStream;
begin
    UpdateFileStream := TFileStream.Create(ExtractFilePath(ParamStr(0))+'update.exe',fmCreate);
    try
      Stream.Seek (SizeOf (Integer), soFromBeginning);                // <-- ID überspringen
      UpdateFileStream.CopyFrom(Stream,Stream.Size-SizeOf (Integer)); // <-- Datei lesen
    finally
     UpdateFileStream.Free;
    end;
end;

Wie hoch ist denn Stream.Size?

Alternative: FTP oder die den Indy TCP-Server und die WriteFile-Methode...

alzaimar - Mi 14.11.07 19:20

Dann schick die Dateigröße mit. Dann muss das doch funktionieren.

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm3.UpdateClient1Click(Sender: TObject);
var
 Stream: TMemoryStream;
 Size, ID:Integer;
begin
 if UpdateOpenDialog.Execute then
 begin
    //Stream := TFileStream.Create(UpdateOpenDialog.FileName,fmOpenRead);
    Stream := TMemoryStream.Create;
    try
     ID:=ID_Update;
     Stream.WriteBuffer(ID,SizeOf(ID));
     Stream.LoadFromFile(UpdateOpenDialog.FileName);
     Size := Stream.Size;       // <<----
     Stream.WriteBuffer(Size,SizeOf(Size));  // <<----
     Form1.Server.SendStream(Connection, Stream);
    finally
     Stream.Free;
    end;
 end;
end;

Und der client

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm2.TCPClientInput(Sender: TObject; Stream: TStream;
var DisposeStream: Boolean);
var
  Str:String;
  Size, ID:Integer;
  UpdateFileStream:TFileStream;
begin
    UpdateFileStream := TFileStream.Create(ExtractFilePath(ParamStr(0))+'update.exe',fmCreate);
    try
      Stream.Seek (SizeOf (Integer), soFromBeginning); 
      Strea.readBuffer (Size, SizeOf (Size))    // <-- Dateigröße lesen
      UpdateFileStream.CopyFrom(Stream,Size);     // <-- Datei lesen
    finally
     UpdateFileStream.Free;
    end;
end;

DeltaEx - Do 15.11.07 09:52

@alzaimar:

Vielen Dank das du dran bleibst.

Habe den Client und Server so angepasst wie du reingeschrieben hast.
Da habe ich ein Problem das der Client abstürzt.

Habe den Server Code so angepasst:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm3.UpdateClient1Click(Sender: TObject);
var
 Stream: TMemoryStream;
 Size, ID:Integer;
begin
 if UpdateOpenDialog.Execute then
 begin
    //Stream := TFileStream.Create(UpdateOpenDialog.FileName,fmOpenRead);
    Stream := TMemoryStream.Create;
    try
   //  ID:=ID_Update;
   //  Stream.WriteBuffer(ID,SizeOf(ID));
     Stream.LoadFromFile(UpdateOpenDialog.FileName);

     Size := Stream.Size;
     Stream.WriteBuffer(Size, SizeOf(Size));
     Form1.Server.SendStream(Connection, Stream);
    finally
     Stream.Free;
    end;
 end;
end;

Also

Delphi-Quelltext

1:
2:

 //  ID:=ID_Update;
   //  Stream.WriteBuffer(ID,SizeOf(ID));

auskommentiert.

Jetzt kriege ich aber leider nur 3 Bytes geladen :-(

Im Debugger sieht es so aus:

Habe eine exe mit 527184 Bytes verschickt

Server:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm3.UpdateClient1Click(Sender: TObject);
var
 Stream: TMemoryStream;
 Size, ID:Integer;
begin
 if UpdateOpenDialog.Execute then
 begin
    //Stream := TFileStream.Create(UpdateOpenDialog.FileName,fmOpenRead);
    Stream := TMemoryStream.Create;
    try
   //  ID:=ID_Update;
   //  Stream.WriteBuffer(ID,SizeOf(ID));
     Stream.LoadFromFile(UpdateOpenDialog.FileName);

     Size := Stream.Size;                           // Stream.Size = 527184
     Stream.WriteBuffer(Size, SizeOf(Size));        // Size= 527184  SizeOf(Size) = 4
     Form1.Server.SendStream(Connection, Stream);
    finally
     Stream.Free;
    end;
 end;
end;

Client:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm2.TCPClientInput(Sender: TObject; Stream: TStream;
var DisposeStream: Boolean);
var
  Str:String;
  Size, ID:Integer;
  UpdateFileStream:TFileStream;
begin
    UpdateFileStream := TFileStream.Create(ExtractFilePath(ParamStr(0))+'update.exe',fmCreate);
    try
      Stream.Seek (SizeOf (Integer), soFromBeginning);                // <-- ID überspringen
      Stream.ReadBuffer(Size, SizeOf(Size)); Stream.Size = 527184 //Size = 1244552 //SizeOf(Size) = 4
      UpdateFileStream.CopyFrom(Stream,Size); // <-- Datei lesen  //Stream.Size = 527184 Size= 3
      Memo1.Lines.Add('loda');
    finally
     UpdateFileStream.Free;
    end;
end;

Ankommen tuen wie gesagt nur 3 Bytes.
Kann es sein das SimpleTCP da Fehlerhaft ist?

Moderiert von AXMD: Delphi-Tags hinzugefügt
Moderiert von AXMD: Doppelposting entfernt.

alzaimar - Do 15.11.07 10:58

Normalerweise läuft es so:

Client schickt an Server 'Gib mir mal die Datei'
Server schickt dann die Datei an den Client innerhalb der Verbindung.

Oder:
Der CLIENT schickt an den Server die Datei unaufgefordert.

Mit anderen Worten: Der Server reagiert auf Anfragen des Clients. Er bedient ('serves') also den Client, daher der Name.

Beispiele gibt es in den Demos zuhauf.

Du kannst z.B. im OnExecute-Ereignis des Servers eine Datei an den Client zurückschicken.

Beispiel: Client schickt nur einen Dateinamen zum Server und der Server schickt dann die Datei zurück:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

Procedure TfmMain.TCPServerExecute(AThread: TIdPeerThread);
Var
  sFilename: String;

Begin
  sFilename := AThread.Connection.ReadLn;
  AThread.Connection.WriteFile(sFilename);
End;

Aber versuchs einfach selbst. Die Handhabung ist wirklich denkbar einfach, das hab sogar ich kapiert.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!