IdFTPCommon.dcu nicht auf Computer

[himitsu]

Zitat von bekas:

Es gibt immer einen Fehler bei "IdFTP1"

Und was für ein Fehler?


Anhand des Namens würde ich mal davon ausgehn, daß du die Komponente TIdFTP (aus'm Reiter Indy-Clients der Komponentenpalette) auf die Form pappen und mit dem Namen "IdFTP1" (oder du gibst ihr einen ordentlichen Namen und benennst es im Code um) versehen solltest.

Die TIdFTP kommt aus der Unit IdFTP.

Program Files\Borland\Delphi7\Lib\IdFTPCommon.dcu
Program Files\Borland\Delphi7\Lib\Debug\IdFTPCommon.dcu
Program Files\Borland\Delphi7\Source\Indy\IdFTPCommon.pas (gibt's aber vermutlich nicht in der Personal)

[bekas]

Die Fehlermeldung lautet (gleich beim Starten):
[Fehler] Unit1.pas(36): Undefinierter Bezeichner: 'IdFTP1'
Die Dateien, deren Pfade du aufgeschrieben hast, existieren bei mir nicht. Genau das ist mein Problem.

bekas

[himitsu]

Und was muß man da machen?

> es definieren

Zitat:

Anhand des Namens würde ich mal davon ausgehn, daß du die Komponente TIdFTP (aus'm Reiter Indy-Clients der Komponentenpalette) auf die Form pappen und mit dem Namen "IdFTP1" (oder du gibst ihr einen ordentlichen Namen und benennst es im Code um) versehen solltest.

Variablennamen, welche wie die Klasse heißen, aber hne das T und hinten mit Nummer, liegen fast immer auf der Form, da dieses die Standardnamensvergabe der VCL entspricht
und viele vergessen ihren Komponenten "sprechende" Namen zu verpassen.

z.B. 200 TEdit's mit den Namen Edit1 bis Edit200 sind halt sehr verständlich, denn da weiß ja jeder sofort welches Edit wofür zuständig ist.

[bekas]

Gibt es dafür vielleicht eine Schritt-für-Schritt-Anleitung?

[omata]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  MemStream: TMemoryStream;
  IdFTP1: TIdFTP;
begin
  IdFTP1 := TIdFTP.Create(nil);
  MemStream := TMemoryStream.Create;
  try
    Memo1.Lines.SaveToStream(MemStream);
    MemStream.Position := 0;
    with IdFTP1 do
    begin
      Host := 'ftp.MyFtpServer.de';
      Username := 'MyUsername';
      Password := 'MyPassword';
      Passive := True;
      TransferType := ftASCII;
      Connect(True, 3000);
      if Connected then
      begin
        Put(MemStream, 'MyFile.txt');
        Disconnect;
      end;
    end;
  finally
    MemStream.Free;
    IdFTP1.Free;
  end;
end;

[himitsu]

Zitat von bekas:

Gibt es dafür vielleicht eine Schritt-für-Schritt-Anleitung?

Du hast meinen letzten Beitrag gelesen? (vorallem das nochmals Zitierte)

Das ist doch praktisch eine Schritt-für-Anleitung.
Ist genauso, wie man ein TEdit verwendet.

Und omata hat jetzt noch gezeigt, wie man diese Komponente "manuell" zur Laufzeit erstellt und wieder freigibt. (nur solange, wie sie für diesen Aufruf benötigt wird)

[bekas]

Zitat:

Anhand des Namens würde ich mal davon ausgehn, daß du die Komponente TIdFTP (aus'm Reiter Indy-Clients der Komponentenpalette) auf die Form pappen und mit dem Namen "IdFTP1" (oder du gibst ihr einen ordentlichen Namen und benennst es im Code um) versehen solltest.

Bei mir gibt es keinen Indy-Clients-Reiter und somit auch keine TIdFTP-Komponente. Hab ich vielleicht nur eine abgespeckte Version von Delphi???

[himitsu]

Indy ist eine Fremdkomponente, welche Borland/Codegear/Embarcadero nur gleich im Delphi mit ausgeliefert.
Darum wäre ich mir relativ sicher gewesen, daß selbst die Personal das mit drin hat, denn Indy selber ist kostenlos.

Nja, ansonsten kann man es sich auch direkt vom Hersteller besorgen und selbst installieren.
http://www.indyproject.org/Sockets/index.DE.aspx
(falls es Schwierigkeiten gibt ... irgendwo im Forum gibt es einige Threads zum Installieren von Indy in Delphi 7, soweit ich mich erinnere)