Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, inifiles, Grids, XPMan, StdCtrls, jpeg, ExtCtrls, ShellApi, ComCtrls,
ShellCtrls, URLMon, Menus, IdFtp, Registry, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase;
type
...
private
ftp: TidFtp;
public
{ Public-Deklarationen }
end;
var
frmMain: TfrmMain;
implementation
{$R *.dfm}
procedure TfrmMain.FormCreate(Sender: TObject);
var i: integer;
begin
ftp:=TidFtp.Create;
with ftp do begin
Host := '
***';
Username := '
***';
Password := '
***';
Passive := true;
Connect;
if FileExists('
D:\Sonstiges\Mhl.exe') = false
then
begin
TransferType := ftBinary;
Get('
Mhl.exe', '
D:\Sonstiges\Mhl.exe', true, true);
end;
Disconnect;
ftp.Free;
end;
end;
end;
genau so gehts ja eben nicht =(
was ich vielleciht dazu sagen muss, was mich selbst wundern...
ich verwende ja theoretisch die Komponente TidFTP, allerdings habe ich gar keine solche Komponente auf meinem Form.
Ich habe einfach oben bei Uses idFTP hingeschrieben und dann eben diesesn Code und alles funktioniert wunderbar.
Liegt es vielleicht daran, dass ich die TidFTP erst in einer Prozedur erstelle? Oder hab ich hier einen Grundlegenden Denkfehler, wenn ja klärt mich bitte auf denn ich arbeite das erste mal mit den Indys.