AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi How to avoid the transfer TCPServer TCPClient

How to avoid the transfer TCPServer TCPClient

Ein Thema von haidomingo · begonnen am 11. Jan 2010 · letzter Beitrag vom 12. Jan 2010
Antwort Antwort
haidomingo

Registriert seit: 23. Jul 2009
23 Beiträge
 
#1

How to avoid the transfer TCPServer TCPClient

  Alt 11. Jan 2010, 19:13
How to avoid the receive (if not exists) or discard file (if exists)
My code is

Send code:
Delphi-Quellcode:
...
    TCPAggiorna.SendCmd ('aggiorna');
    for i:=0 to ElencoFile.Count - 1 do begin
       FStream := TFileStream.Create(ElencoFile[i], fmOpenRead, fmShareDenyWrite);
       TCPAggiorna.IOHandler.WriteLn(ExtractFileName(ElencoFile[i]));
       TCPAggiorna.IOHandler.LargeStream := True;
       TCPAggiorna.IOHandler.Write(FStream, 0, True);
       FreeAndNil(FStream);
    end;
    TCPAggiorna.IOHandler.WriteLn('Finito');
    ....
Receive code

Delphi-Quellcode:
Dir := AppPath;
       FileName:='';
       i:=202;
       repeat
         inc(i);
         FileName:= ASender.Context.Connection.IOHandler.ReadLn;
         if (FileName <> 'Finito') then begin
            if (FileExists(Dir+FileName)) then begin

               // Insert here the code to discard file

               ASender.Context.Connection.IOHandler.WriteLn (IntToStr(i)+' File '+FileName+' received');
            end
            else begin
               FStream := TFileStream.Create(Dir+FileName, fmCreate, fmOpenWrite);
               ASender.Context.Connection.IOHandler.LargeStream := True;
               ASender.Context.Connection.IOHandler.ReadStream(FStream, -1);
               FreeAndNil(FStream);
               ASender.Context.Connection.IOHandler.WriteLn (IntToStr(i)+' File '+FileName+' discarded');
            end;
         end;
        until FileName='Finito';
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.752 Beiträge
 
Delphi 10.4 Sydney
 
#2

Re: How to avoid the transfer TCPServer TCPClient

  Alt 11. Jan 2010, 22:00
Isn't there a function like Delphi-Referenz durchsuchendeleteFile there?

Regards
Klaus
Klaus
  Mit Zitat antworten Zitat
Benutzerbild von sx2008
sx2008

Registriert seit: 16. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#3

Re: How to avoid the transfer TCPServer TCPClient

  Alt 12. Jan 2010, 06:41
The receiver doesn't know where the file's data ends and the filename of the next file starts.
You have to send the length of each file.
Otherwise it's impossible to separate the TCP/IP datastream into different files.
Code:
filename<CR><LF>filelength<CR><LF>file content
fork me on Github
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:21 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz