Mit Indy (TIdFTP) Script hochladen klappt nicht

[BlueStarHH]

Hallo,

ich möchte mit Indy (TIdFTP) ein Perl-CGI-Script auf meinem Webserver hochladen. Das klappt auch. Die Datei ist da, nur wenn ich sie über den Browser aufrufe erscheint die Meldung "Premature end of script headers". Wenn ich das Perl-CGI-Script mit einem FTP-Programm hochlade, wird sie einwandfrei ausgefürt. Was macht das FTP-Programm anders als Indy?

Delphi-Quellcode:

IdFTP1.Connect;
IdFTP1.TransferType := ftASCII;
IdFTP1.Put(FileName, '\cgi-bin\meinscript.cgi');
IdFTP1.Disconnect;

[DeddyH]

Und wenn Du die Datei einmal binär überträgst?

[BlueStarHH]

Zitat von DeddyH:

Und wenn Du die Datei einmal binär überträgst?

Komisch, es geht nur wenn ich es wie folgt mache:

Delphi-Quellcode:

IdFTP1.Connect;
IdFTP1.TransferType := ftASCII;
IdFTP1.TransferType := ftBinary;
IdFTP1.Put(FileName, '\cgi-bin\meinscript.cgi');
IdFTP1.Disconnect;

Bei der ersten Zuweisung von TransferType wird Code im Setter noch nicht ausgeführt. Erst in der zweiten Zuweisung. Denn wenn man IdFTP1.TransferType := ftASCII; weglässt, kann das Script nicht ausgeführt werden.

Was noch komischer ist: Überall steht, dass man Perl-CGI-Scripte als ASCII übertragen soll, da sonst die Zeilenübrüche defekt sind und das Script nicht ausgeführt werden kann. Hier muss ich es aber als binär übertragen, damit es läuft. Hat jemand Vermutungen was hier los ist?

[blackfin]

Deine Script-CGI-Datei ist aber nicht zufälligerweise Unicode?

[alfold]

Zitat von BlueStarHH:

....
Wenn ich das Perl-CGI-Script mit einem FTP-Programm hochlade, wird sie einwandfrei ausgefürt. Was macht das FTP-Programm anders als Indy?

Die meisten FTP Progs (Putti, Winscp)schieben die Dateien Binär hoch!
Es sei, man stellt es anders ein

Zitat von blackfin:

Deine Script-CGI-Datei ist aber nicht zufälligerweise Unicode?

Wie sollte es. Wenn er es mit anderen Progs hoch schiebt und es funct

Gruss alfold

[blackfin]

Zitat:

Wie sollte es. Wenn er es mit anderen Progs hoch schiebt und es funct

Naja, der Server kann ja vielleicht, bzw. ziemlich sicher Unicode-Perl-Scripte ausführen.
Allerdings, wenn man eine Unicode-codierte Datei mit Ascii-Encoding hochschiebt, kann das durchaus die Datei zerstören.
Andere Clients erkennen u.U. trotz eingestelltem ASCII-Transfer, dass eine Datei Unicode ist und schieben sie dann binär hoch (SmartFTP macht das z.B.)
Und das ist auch richtig, Unicode-Dateien sollte man nicht mit ASCII-Transfer hochladen, das gibt Verwurschtelungen.

[BlueStarHH]

Zitat von blackfin:

Deine Script-CGI-Datei ist aber nicht zufälligerweise Unicode?

Nein, kein Unicode. Lädt Indy die Datei intern evtl. als Unicode und überträgt die dann? Mit einer alten nicht Unicode Version von Indy gab es nämlich keine Probleme...

[blackfin]

Kann gut sein...wenn man sich den Quellcode von der idFTP ansieht, sind da ein paar merkwürdige Sachen mit dem Encoding...
Schickst du an den Server vorher ein "FEAT"-Command?
Da scheint Indy dann das Default Encoding für den String-I/O-Handler auf UTF8 zu stellen:
IOHandler.DefStringEncoding := enUTF8; hm...
Versuche doch mal, die Datei nicht über die Angabe eines Dateinamens im put-Befehl hochzuschieben, sondern mach die Datei vorher über einen TFileStream auf und übergib den an put.

[BlueStarHH]

Ich hab den Fehler in der IdFTP.pas gefunden:

Delphi-Quellcode:

procedure TIdFTP.SetTransferType(AValue: TIdFTPTransferType);
begin
  if AValue <> FTransferType then begin
    FTransferType := AValue; //von unten nach hier verschoeben
    if not Assigned(FDataChannel) then begin
      if Connected then begin
        SendTransferType;
      end;
      //FTransferType := AValue; //muss nach oben
    end;
  end;
end;

Wenn die markierte Zeile nicht verschoben wird, setzt SendTransferType immer den vorherigen FTransferType und nicht den aktuellen.

[CCRDude]

Verwendest Du eine ältere Version von Indy?

Bei mir (mit DXE mitgeliefertes Indy 10) steht nämlich schon:

Code:

procedure TIdFTP.SetTransferType(AValue: TIdFTPTransferType);
begin
  if AValue <> FTransferType then begin
    if not Assigned(FDataChannel) then begin
      if Connected then begin
        SendTransferType(AValue);
      end;
      FTransferType := AValue;
    end;
  end;
end;