вывод файла

← →
Der Nechk@ssoff © (2006-03-04 10:08) [0]

Здраствуйте!У меня есть программа(автор-я),в ней задействован компонент OpenDialog,SaveDialog и Memo-мне нужно что бы при открытии файла он записывался(помещался(?)) в Memo что бы его можно было потом выделить и пересохранить.Заранее спасибо!

← →
Dmitrij_K (2006-03-04 10:15) [1]

Загрузка
if OpenDialog.Execute then
Memo.LoadFromFile(OpenDialog.FileName);
Сохранение
if SaveDialog.Execute then
Memo.SaveFromFile(SaveDialog.FileName);

Купи книгу из серии Delphi для чайников

← →
unknown © (2006-03-04 10:19) [2]

Вот тут есть пример
Program Files\Borland\Delphi7\Demos\Doc\TextEdit\

← →
Der Nechk@ssoff © (2006-03-04 10:56) [3]

Спасибо! НО при компиляции Delphi выдет ошибку:Undeclared identifier:"load from file".Тоже и с Save From file.Пмогите исправить!

← →
unknown © (2006-03-04 11:42) [4]

>Der Nechk@ssoff © (04.03.06 10:56) [3]
Показывай, как делаешь

← →
DesWind © (2006-03-04 11:42) [5]

Memo1.Lines.LoadFromFile/SaveToFile

← →
Der Nechk@ssoff © (2006-03-04 12:23) [6]

Спасибо!Скомпилировал.НО в Memo прога выводит всякую чушь! И отказувается грузить большие файлы(1Гб).

← →
Der Nechk@ssoff © (2006-03-04 12:59) [7]

Вот полный текст проги.Посути это конвертер из *.N в *.dnf(мой тип файла).
НО в Memo прога выводит всякую чушь и при конвертровании эта чушь записывается в конечный файл(проверено WordPado-м).
Помогите!!!

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ExtDlgs, Menus, StdCtrls, MPlayer, XPMan;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
SaveDialog1: TSaveDialog;
OpenPictureDialog1: TOpenPictureDialog;
Memo: TMemo;
N6: TMenuItem;
N7: TMenuItem;
procedure N3Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N7Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}
procedure TForm1.N3Click(Sender: TObject);
begin
form1.Close;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
Memo.Lines.LoadFromFile(OpenPictureDialog1.FileName);
end;

procedure TForm1.N5Click(Sender: TObject);
begin
if SaveDialog1.Execute then
Memo.lines.SaveToFile(SaveDialog1.FileName);

end;

procedure TForm1.N7Click(Sender: TObject);
begin
form2.show;
end;

end.

← →
Virgo_Style © (2006-03-04 13:07) [8]

Есть у меня такое подозрение, что "чушь" - это и есть содержимое .N - файла. А вообще на развод что-то смахивает...

И что-то не припомню графического формата, у которого файлы с таким расширением, а иначе зачем OpenPictureDialog ?

← →
tesseract © (2006-03-04 13:45) [9]

> И что-то не припомню графического формата, у которого файлы
> с таким расширением, а иначе зачем OpenPictureDialog ?

А Wordpad при открытии такого файла такую чушь выдаёт....

← →
Der Nechk@ssoff © (2006-03-04 13:56) [10]

Я открываю файл *.avi и в Memo появляется вот что: RIFF’
Когда я сохраняю исходный AVI в DNF(есть такой тип файла) то при открытии его через WordPad то вижу:RIFF’ и всё. Вот.
Мне надо что бы в Memo было выведено реальное имя файла(допустим: !!!.avi).

← →
unknown © (2006-03-04 14:09) [11]

> Der Nechk@ssoff © (04.03.06 13:56) [10]
> Я открываю файл *.avi и в Memo появляется вот что

Много чего хочется сказать по этому поводу, но уж лучше не буду :))
Хотя нет, всеже скажу, что в мемо НЕЛЬЗЯ!!! НЕТ СМЫСЛА!!! грузить
не текстовые файлы, тем более > большие файлы(1Гб)

← →
Virgo_Style © (2006-03-04 14:44) [12]

Der Nechk@ssoff © (04.03.06 13:56) [10]

Все страньше и страньше, вскричала Алиса...

if OpenPictureDialog1.Execute then Memo.Lines.Add(OpenPictureDialog1.FileName);

← →
Der Nechk@ssoff © (2006-03-04 14:49) [13]

Тогда в чем?Перепробовал ВСЕ получается только с мемо и ole.
Но с ole свои ошибки типа:INVALID STREAM FORMAT или вот: %1 уже существует(тоже ошибка).

← →
Der Nechk@ssoff © (2006-03-04 15:28) [14]

Ладно,перефразирую цель.
Надо сделать прогу наподобие контейнера для файлов с функцией добавления\выгрузки файлов(файлы медийные).
Помогите пожалуйста!!

← →
EvS (2006-03-04 15:30) [15]

>Тогда в чем?

В том, что автор вопроса сам не очень понимает чего он хочет.

← →
EvS (2006-03-04 15:32) [16]

Это когда забиваешь файл в прогу и при перетаскивании проги с компа на комп перетаскивается и сам файл.
Типа архив.

Если надо сделать, то делай, разрешение не обязательно, но даем на всякий случай.

>Der Nechk@ssoff © (04.03.06 15:35) [17]
Записывай файл в ресурсы приложения
Вот тут есть обсуждение подобного
http://forum.codenet.ru/showthread.php?s=4383752257da6a997bdf9b0f687cf7f2&threadid=26526

Спасибо!Последний вопрос-куда загружать сам файл??(MEMO,OLE и тд)

memo - это для текста, а не для кино
и для "конвертации" файла вовсе не обязательно его показывать
используй TFileStream
через WordPad тоже проверять не стоит, он тоже с фильмами не работает

вывод файла Найти похожие ветки