Exe Datei von FTP herunterladen = Broken ???

[MaToBe]

Guten Tag,

ich bins mal wieder ;)

Also ich habe per Filezilla eine Datei (Mhl.exe) auf meinen Webspace geladen.

Nun möchte ich sie mittels

Delphi-Quellcode:

Get('Mhl.exe', 'D:\Sonstiges\Mhl.exe', true, true);

wieder herunterladen. Die FTP Verbindung steht, dass runterladen klappt ja auch, nur leider kommt wenn ich die .Exe dann öffnen will die Fehlermeldung "Das Programm ist keine gültige Win32 Anwendung".

Diese Fehlermeldung verstehe ich nicht aus 3 Gründen:

1. Vor dem Uploaden auf FTP ging die Datei ohne jedes Problem => Datei ist in Ordnung
2. Lade ich sie mit Filezilla statt mit meinem ftp.Get Befehl herunter, funktioniert sie auch => Webspace macht sie nicht kaputt.
3. Ini-Dateien kommen komplett und richtig an. => FTP-Verbindung in meinem Programm steht.

Das heißt der Get Befehl muss irgendwo einen Fehler haben oder? Aber wo?

[mkinzler]

Ist der Transfermodus binary?

[MaToBe]

mmh keine Ahnung.

wo kann man das einstelln bzw. herausfinden?

€: habs gefunden, aber wie stellt man das von Axcii auf Binary um?

mit TransferType := ftBinary; gehts nicht und mit TransferType(ftBinary) auch nicht ?

[mkinzler]

Welche Komponente verwendest du den?

[MaToBe]

TidFTP von Indy 10 per ftp:=TidFtp.Create;

[mkinzler]

Delphi-Quellcode:

.TransferType := ftBinary;

[MaToBe]

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.

[MaToBe]

Als Fehlermeldung erhallte ich "R2003: Ungültiger Bezeichner : 'ftBinary'"

Hat den keiner ne Idee? Host ect. sind ja auch keine Ungültigen Bezeichner.

[jfheins]

Dann drück mal Strg und klicke dann auf TransferType.

Offensichtlich wird der Transfertype nicht mit der Konstante ftBinary beschrieben.

Alternativ in der Hilfe gucken, oder Strg + Leertaste drücken ;)

[mkinzler]

Füge IdFTPCommon in die Uses ein