automatisches verschicken einer datei

[Paul]

hi,

versuche gerade ein prog zu coden welches automatisch eine log datei aller std. auf ein server transferiert.

den timer hab ich gesetzt, steht auf false soll aber beim programm start auf true gesetzt werden.

meine frage jetzt ist form.create richtig um den timer bei programmstart auf true zusetzen???
versenden geht auch noch nicht so recht wie sag ich den prog das er die datei aus dem ordner nehmen soll wo das prog selber drin liegt, ohne über ein button zu gehen.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdAntiFreezeBase, IdAntiFreeze, ExtCtrls,
  IdComponent, IdTCPConnection, IdTCPClient, IdFTP, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    IdAntiFreeze1: TIdAntiFreeze;
    IdFTP1: TIdFTP;
    Label1: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Timer1: TTimer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.enabled := true;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin

IdFTP1.Host := '192.168.0.1';
IdFTP1.Username := 'paul';
IdFTP1.Password := '20';
IdFTP1.Connect;
IdFTP1.ChangeDir('/');

IdFTP1.Put('log.log');
IdFTP1.Quit;
IdFTP1.Disconnect;
end;

end.

danke schonmal für eure hilfe

mfg Paul

[ims]

hi paul

verständlich dass er die datei nicht schickt, er weiss ja nicht woher nehmen. wenn die datei wie beschrieben im gleichen ordner wie die exe liegt, kannst du folgendes verwenden:

IdFTP1.Put(ExtractFilePath(paramstr(0)) + 'log.log') damit bekommt idFTP den gesamten pfad deines log-files.


zu deiner timer-frage (ich bin mir nicht ganz sicher wie du es meinst):
du startest dein programm am morgen (oder sonst wann) und dann lässt du es den ganzen tag laufen?
wenn ja, sollte das problem mit dem timer gar kein problem sein . das müsste eigentlich funktionieren.


gruss, dave

[Paul]

hmmm

irgendwie versendet er immer noch nix. kann das eventuell am timer liegen??

mfg

[a.vollmer]

wie goch hast du den timer denn stehen?


Alex

[Paul]

zum testen auf = interval:10

bei events - on timer = formcreate

mfg

[flomei]

das heisst alle 10ms?
Probier doch mal eine Minute oder 5 Minuten oder so...
Vielleicht ist er einfach zu langsam um das zu verarbeiten...

MfG Florian

[a.vollmer]

versuchs doch mal so...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.interval := 300000;
timer1.enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
IdFTP1.Host := 'ftp.domain.de';
IdFTP1.User := 'benutzername';
IdFTP1.Password := 'password';
IdFTP1.Connect;
IdFTP1.ChangeDir('/');

IdFTP1.Put('c:\test.txt','test.txt');
IdFTP1.Quit;
IdFTP1.Disconnect;
end;

Gruß

Alex

[Paul]

irgendwas stimmt nicht, der versendet immer noch nicht das files.

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

IdFTP1.Host := 'ip';
//IDFTP1.passive := false;
IdFTP1.Username := 'user';
IdFTP1.Password := 'pass';
IdFTP1.Connect;
IdFTP1.ChangeDir('/');
//IdFTP1.TransferType := ftBinary;

IdFTP1.Put(ExtractFilePath(paramstr(0)) + 'log.log');
IdFTP1.Quit;
IdFTP1.Disconnect;
end;

wie gesagt das file liegt im selben ordner wie das prog. das prog soll sich automatisch das file suchen und versenden.

[Basilikum]

versuche mal:

Code:

[..]
IdFTP1.Put(ExtractFilePath(paramstr(0)) + 'log.log','log.log');
[..]

[Jens Schumann]

Zitat von flomei:

das heisst alle 10ms?
Probier doch mal eine Minute oder 5 Minuten oder so...
Vielleicht ist er einfach zu langsam um das zu verarbeiten...

MfG Florian

Ein Interval von weniger als 52 kann der Delphi Timer nicht auflösen.
Die Begründung habe ich mal gelesen aber leider wieder vergessen.