IdFTPCommon.dcu nicht auf Computer

[bekas]

Hallo liebes Forum,

ich möchte mit einem virtuellen FTP-Server arbeiten und habe herausgefunden, dass ich dafür die Datei IdFTPCommon.dcu in die Uses einbauen muss. Nur befindet sich diese Datei nicht auf meinem Computer!
Wo bekomme ich sie her?

Vielen Dank schonmal für eure Antworten.

bekas

[himitsu]

Wie hast'n das rausgefunden?

Je nach Indy-Version benötigt man manchmal unterschiedliche Dateien.


Was genau für eine Klasse willst du verwenden und was ist ein virtueller FTP-Server?

TIdFTPServer? (liegt bei mir in der Unit IdFTPServer)
Oder meinst du einen lokalen Server?



Wichtige Zusatzinfos wären manchmal garnicht sooooooo schlecht:

Welche Delphi-Version nutzt du?

Hast du selber eine andere Indy-Version installiert und wenn ja, welche?

[bekas]

Ich hab mir mit xampp einen Server am Computer erstellt. Ich würde gerne dieses Stück Code verwenden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  MemStream: TMemoryStream;
begin

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

end;

Es gibt immer einen Fehler bei "IdFTP1"

Ich benutze Delphi 7 Personal.
Wegen INDY-Versionen hab ich keine Ahnung. Ich bin Anfänger.

[himitsu]

Zitat:

Zitat von bekas (Beitrag 1173915)

Es gibt immer einen Fehler bei "IdFTP1"

Und was für ein Fehler? :wall:


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. :roll:

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

Zitat von bekas (Beitrag 1173990)

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. :roll:

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