Загрузить txt файл в Tmemo

← →
Шоломицкий (2003-04-08 16:19) [0]

Допустим на сайте http://deskbuttons.narod.ru есть тесктовый файл, допустим (text.txt) http://deskbuttons.narod.ru/text.txt.
Вопрос:
как мне его содержимое загрузить в Tmemo или в Trichedit?

← →
Palladin (2003-04-08 17:43) [1]

допустим, если подумать, то, допустим, ответ очевиден, допустим...

← →
MityaP (2003-04-08 20:43) [2]

Memo1.Lines.LoadFromFile /// тока сначала перекопири его на комп свой...

Или твой вопрос: как из программы скопирить файл из http://deskbuttons.narod.ru/text.txt??

← →
panov (2003-04-08 21:24) [3]

Memo1.Lines.LoadFromFile( http://deskbuttons.narod.ru/text.txt)

← →
Дмитрий К.К. (2003-04-09 07:06) [4]

Indy, FastNet и проч.

← →
Шоломицкий (2003-04-14 13:36) [5]

Так!
А сохранить в него изменения как?

← →
Palladin (2003-04-14 14:44) [6]

:)

Memo1.Lines.SaveToFile(" http://deskbuttons.narod.ru/text.txt")

← →
Шоломицкий (2003-04-14 18:15) [7]

Palladin
не работает!
"Can not create file......." При сохранении
"Can not open file....." При открытии
Need help!!!

← →
Song (2003-04-14 19:13) [8]

← →
Palladin (2003-04-14 21:20) [9]

Я страшно удивлен :)

← →
Шоломицкий (2003-04-14 22:03) [10]

Ну серьёзно!!!!
Вот сами попробуйте!

← →
7414N (2003-04-19 04:03) [11]

как вариант...
это юнит...
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Psock, NMFtp, ExtCtrls, Gauges;

type
TForm1 = class(TForm)
NMFTP1: TNMFTP;
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Edit3: TEdit;
Label3: TLabel;
Edit4: TEdit;
Label4: TLabel;
Button1: TButton;
Button2: TButton;
Label5: TLabel;
ListBox1: TListBox;
Label6: TLabel;
Button3: TButton;
ListBox2: TListBox;
Button4: TButton;
Edit5: TEdit;
Label7: TLabel;
Button5: TButton;
Label8: TLabel;
Label9: TLabel;
Timer1: TTimer;
Label10: TLabel;
Gauge1: TGauge;
Label11: TLabel;
ListBox3: TListBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure NMFTP1Connect(Sender: TObject);
procedure NMFTP1Disconnect(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure NMFTP1TransactionStop(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1; filesize:int64;

implementation

{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
NMFTP1.Connect;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
NMFTP1.ChangeDir(inputbox("WEB FOLDER:","Input WEB Folder Name There:",""));
Label5.caption:="Current WEB Folder is: "+NMFTP1.CurrentDir;
end;

procedure TForm1.Edit3Change(Sender: TObject);
begin
//gg
nmftp1.UserID:=edit3.text;
nmftp1.Password:=edit4.text;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
nmftp1.List;
listbox1.items:=nmftp1.FTPDirectoryList.name;
listbox2.items:=nmftp1.FTPDirectoryList.Size;
listbox3.items:=nmftp1.FTPDirectoryList.ModifDate;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
nmftp1.mode(mode_byte);
//nmftp1.Allocate(999999999);
nmftp1.download(edit2.text,edit5.text);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
nmftp1.disconnect;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
nmftp1.host:=edit1.text;
end;

procedure TForm1.NMFTP1Connect(Sender: TObject);
begin
label9.caption:="State: "+"Connected";
end;

procedure TForm1.NMFTP1Disconnect(Sender: TObject);
begin
label9.caption:="State: "+"DisConnected";
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (filesize<>0) and (nmftp1.BytesRecvd<>0) then
gauge1.progress:=round(100*nmftp1.BytesRecvd/filesize) else gauge1.progress:=0;
label8.caption:="Получено: "+inttostr(Round(nmftp1.BytesRecvd/1024)) + " Кб";
;
label10.caption:="Послано: "+inttostr(Round(nmftp1.bytessent/1024))+" Кб";
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
if (listbox1.Items[listbox1.itemindex]<>".") and (listbox1.Items[listbox1.itemindex]<>"..") and (listbox1.Items[listbox1.itemindex]<>"") then
begin
listbox1.enabled:=false;
listbox2.enabled:=false;
edit2.text:=listbox1.Items[listbox1.itemindex];
filesize:=strtoint(listbox2.items[listbox1.itemindex]);

end;
end;

procedure TForm1.NMFTP1TransactionStop(Sender: TObject);
begin
listbox1.enabled:=true;
listbox2.enabled:=true;
end;

end.

← →
7414N (2003-04-19 04:04) [12]

это жрёт файло с сайта. Или закачивает.
Бери и твори...

← →
Шоломицкий (2003-04-19 22:42) [13]

Удалено модератором

Загрузить txt файл в Tmemo Найти похожие ветки