Hm, da erscheint wieder dieser Fehler:
"Field.Form1.ftp does not have a corresponding component.Remove the declaration?"
Ich hab alles nochmal von vorne aufgesetzt, aber leider kein Erfolg. Ich habe lediglich 2 EditFelder hinzugefügt und ein TString eingebaut. Also hier nochmal mein neuer Quelltext, beide Programme funktionierten unabhängig voneinander zwar, aber wenn man sie zusammen benutzt, leider nicht:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdExplicitTLSClientServerBase, IdFTP, StdCtrls;
type
TForm1 =
class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
ftp: TidFTP;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var sl:TStrings;
begin
sl:=TStringList.Create;
sl.Add(Edit1.text);
sl.Add(Edit2.text);
sl.SaveToFile('
C:\text.txt');
sl.Free;
with ftp do
begin
try
Host :='
kidgudi.ki.funpic.de';
Username := '
kidgudi';
Password := '
*****';
Passive := true;
Connect;
Put('
C:\text.txt', '
text.txt', true);
Disconnect;
finally
end;
end;
end;
end.