Mit Indy (TIdFTP) Script hochladen klappt nicht

[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?

[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;