Kopier fil over tcp forbindelse

har selv været ude i noget af det samme, endte op med at bruge webcopy efter at serveren havde genereret filen

webcopy fra tmssoftware.com

Således sender jeg en fil fra min server til en klient, bruger Indy 10, jeg har fjernet en del kode for at gører det mere overskueligt, jeg håber ikke jeg har fjernet for meget

Server:

I IdTCPServerExecute:

procedure SendOpdatering;
var
  Stream : TFileStream;
begin
  try
        Stream:=TFileStream.Create(MinFil,fmOpenRead);
      try
        AContext.Connection.IOHandler.Write(Stream,0,true);
      finally
        Stream.Free;
      end;
  end;
  except
    on E: Exception do
    begin
      SkrivLog('Fejl i SendOpdatering: '+E.Message,true);
    end;
  end;
end;

----------------

Klient:

  TOpdateringThread = class(TThread)
  private
    { Private declarations }
    IdTCPClient: TIdTCPClient;
    Resultat,Update_mode : string;
    pBogLogon_md5 : string;

//    procedure HentFiler;
  protected
    procedure Execute; override;

  public
    ErrorStr : string;
    Svar : string;
    constructor Create(aHost, aBogLogon_md5 : string);
//    destructor Destroy; override;
  end;
.
.
.
constructor TOpdateringThread.Create(aHost : string);
begin
    inherited Create(False);
    FreeOnTerminate:=true;
  IdTCPClient:=TIdTCPClient.Create;
  IdTCPClient.ReadTimeout:=10000;
  IdTCPClient.ConnectTimeout:=5000;
  IdTCPClient.Port:=Bog_server_port;
  IdTCPClient.Host:=aHost;
  ErrorStr:='';
end;

procedure TOpdateringThread.Execute;
var
  Stream : TFileStream;
  Svar : TStringList;
  Sr: TSearchRec;
begin
  try
    IdTCPClient.Connect;
    Stream:=TFileStream.Create('update\'+minfil,fmCreate);
    IdTCPClient.IOHandler.ReadStream(Stream,-1,false);
    Stream.Free;
    except
        on E: Exception do begin
            Resultat:=Resultat+' - '+E.Message;
    end;
    end;

  IdTCPClient.Free;
end;

Jeg har ca. 30 klienter og der er efterhånden blevet overført tusinder af filer uden at jeg har oplevet problemer.

Glemte at nævne at i noget af den kode jeg har klippet der sender klienten først en lille streng til serveren med besked om at der skal sendes en fil hvorefter serveren sender en lille streng retur med filnavnet og derefter kommer så selve filen.

Takker..
Jeg har først tid til at afprøve det imorgen tidlig - skriver tilbage så snart det er testet..

Ligner nu meget det jeg selv har prøvet, men det får som sagt et forsøg imorgen

Jeg bruger Indy 10.2.3 og som nævnt virker ovenstående kode uden problemer. Hvis du ikke kan få det til at virker kan det måske være fordi du benytter en ældre Indy version som havde en hel del fejl.

Kan ikke få det til at virke :(

Har forsøgt at gøre det så simpelt som muligt ved at lave en serverapp kun med en tcpserver-komponent, hardcode host/port osv, og det samme med klienten, men noget går galt undervejs.

Klienten kommer med en 10022 - invalid arguments, når man siger connect.

Her er hvad jeg har:

Server:
-------------

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  Stream : TFileStream;
begin
  try
    Stream:=TFileStream.Create('c:\test.pdf',fmOpenRead);
    try
      AContext.Connection.IOHandler.Write(Stream,0,true);
    finally
      Stream.Free;
    end;
  except
    on E: Exception do
    begin
      ShowMessage('Fejl: '+E.Message);
    end;
  end;
end;




Klient:
--------------

  TOpdateringThread = class(TThread)
  private
    IdTCPClient: TIdTCPClient;
  protected
    procedure Execute; override;
  public
    constructor Create(aHost: string);
  end;

.
.
.

constructor TOpdateringThread.Create(aHost : string);
begin
  inherited Create(False);
  FreeOnTerminate:=true;
  IdTCPClient:=TIdTCPClient.Create;
  IdTCPClient.Port:=18000;
  IdTCPClient.Host:=aHost;
end;

.
.
.

procedure TOpdateringThread.Execute;
var
  Stream : TFileStream;
begin
  try
    IdTCPClient.Connect;
    Stream:=TFileStream.Create('c:\temp\bummelum.pdf',fmCreate);
    IdTCPClient.IOHandler.ReadStream(Stream,-1,false);
    Stream.Free;
    except
        on E: Exception do ShowMessage('Fejl: '+E.Message);
    end;

  IdTCPClient.Free;
end;

-----------

og så en knap på klienten som kreerer en tråd og kalder trådens execute procedure:


procedure TForm1.Button1Click(Sender: TObject);
var
  Thread: TOpdateringThread;
begin
  Thread := TOpdateringThread.Create('localhost');
  Thread.Execute;
end;

-----

har prøvet at køre både server og klient på localhost, men har også forsøgt at smide server app'en på en anden maskine - samme fejl..

hilfe bitte! :)

Thread.Execute; skal fjernes. Ændre det på noget? Hvis ikke så vil jeg prøve at teste din kode her.

har fjernet thread.execute fra min buttonclick - umiddelbart ser det ud til at virke! :)

men hvorfor? har ikke arbejdet meget med TThread's

Bliver thread'en "triggered" i createn, siden man ikke skal kalde execute?

Denne linie i trådens create:
inherited Create(False);
//constructor Create(CreateSuspended: Boolean);

angiver med false at tråden _ikke_ skal creates Suspended, dvs. at Execute kaldes automatisk straks efter at tråden er oprettet.

Så det også står i hjælpen:
Call Create to create a thread in an application. If CreateSuspended is False, Execute is called immediately. If CreateSuspended is True, Execute won't be called until after Resume is called.

Nu er det selfølgelig ikke et krav at du henter filen i en tråd men det giver jo den fordel at dit program ikke "hænger" mens filen hentes.
Du kan jo så benytte OnTerminate til at få at vide når filen er hentet.

F.eks:
TOpdateringThread.Create('localhost').OnTerminate:=MinOnTerminate;
.
.
procedure TForm1.MinOnTerminate(Sender: TObject);
begin
  ShowMessage('Fil hentet');
end;

ok tak for hjælpen!

smider du et svar?

Et svar

Et lille tillægsspørgmål -

Kan det være en fordel at skrive serverens onexecute ved hjælp af threads også, så den kan sende filer til flere klienter samtidigt, eller ligger det i serverkomponentens natur at den kan det?

Det styrer server komponenten automatisk, som du har lavet det nu kan serveren sende til mange på samme tid uden problemer.