FTPサーバーからのロードについて (ID：14703)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

皆さんご無沙汰しております。
あれから、試行錯誤して現在このような状態になっています。

フォーム上に
Memo1,Memo2,Memo3 をはりつけます。
使えるコンポーネント１００選から  TDropSourceEx を２つ使用し、
Memo1、Memo2 で使うようにします。
Delphi3 Q&A の TFileDrop を３つ使用し、
Memo1、Memo2、Memo3 で使うようにします。

Memo1でドラッグした場合は、
Memo2、Memo3、デスクトップ等コピーができます。

Memo2でドラッグした場合は、
Memo1、Memo3にはコピーできません（ドロップできない）が
デスクトップにはFTPサーバーからコピーができました。

Memo1,Memo3 でドロップできて、
そのファイルリスト（ftp://〜のままでもよい）を取得できれば
TIdFTP を使ってファイルのダウンロードができるのですが、
何か方法はありませんでしょうか？

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
	Shift: TShiftState; X, Y: Integer);
begin
  DropSourceEx1.DSFileName.Add('D:\Debug\Test1.txt');
  DropSourceEx1.DSFileName.Add('D:\Debug\Test2.txt');
end;

procedure TForm1.Memo2MouseDown(Sender: TObject; Button: TMouseButton;
	Shift: TShiftState; X, Y: Integer);
begin
  DropSourceEx2.DSFileName.Add('ftp://User:Pass:192.168.1.1/Test1.txt');
  DropSourceEx2.DSFileName.Add('ftp://User:Pass:192.168.1.1/Test2.txt');
end;

procedure TForm1.FileDrop1FileDrop(Sender: TObject; Num: Integer; Files: TStrings; X, Y: Integer);
begin
  Memo1.Lines.Add(Files.Text);
end;

procedure TForm1.FileDrop2FileDrop(Sender: TObject; Num: Integer; Files: TStrings; X, Y: Integer);
begin
  Memo2.Lines.Add(Files.Text);
end;

procedure TForm1.FileDrop3FileDrop(Sender: TObject; Num: Integer; Files: TStrings; X, Y: Integer);
begin
  Memo3.Lines.Add(Files.Text);
end;

←解決時は質問者本人がここをチェックしてください。

戻る