Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

вывод файла [D7, XP]

Страницы: 1 2 >
Der Nechk@ssoff © (2006-03-04 10:08:00)
Здраствуйте!У меня есть программа(автор-я),в ней задействован компонент OpenDialog,SaveDialog и Memo-мне нужно что бы при открытии файла он записывался(помещался(?)) в Memo что бы его можно было потом выделить и пересохранить.Заранее спасибо!

Desdechado (2006-03-04 19:41:00) [1]
memo - это для текста, а не для кино
и для "конвертации" файла вовсе не обязательно его показывать
используй TFileStream
через WordPad тоже проверять не стоит, он тоже с фильмами не работает

Der Nechk@ssoff (2006-03-04 15:45:00) [2]
Спасибо!Последний вопрос-куда загружать сам файл??(MEMO,OLE и тд)

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

Anatoly Podgoretsky (2006-03-04 15:39:00) [4]
Если надо сделать, то делай, разрешение не обязательно, но даем на всякий случай.

Der Nechk@ssoff (2006-03-04 15:35:00) [5]
Это когда забиваешь файл в прогу и при перетаскивании проги с компа на комп перетаскивается и сам файл.
Типа архив.

EvS (2006-03-04 15:32:00) [6]
> [14] Der Nechk@ssoff © (04.03.06 15:28)

что такое контейнер для файлов?

EvS (2006-03-04 15:30:00) [7]
>Тогда в чем?

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

Der Nechk@ssoff (2006-03-04 15:28:00) [8]
Ладно,перефразирую цель.
Надо сделать прогу наподобие контейнера для файлов с функцией добавления\выгрузки файлов(файлы медийные).
Помогите пожалуйста!!

Der Nechk@ssoff (2006-03-04 14:49:00) [9]
Тогда в чем?Перепробовал ВСЕ получается только с мемо и ole.
Но с ole свои ошибки типа:INVALID STREAM FORMAT или вот: %1 уже существует(тоже ошибка).

Virgo_Style (2006-03-04 14:44:00) [10]
Der Nechk@ssoff © (04.03.06 13:56) [10]

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

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

unknown (2006-03-04 14:09:00) [11]

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

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

Der Nechk@ssoff (2006-03-04 13:56:00) [12]
Я открываю файл *.avi и в Memo появляется вот что: RIFF’\x16\x16
Когда я сохраняю исходный AVI в DNF(есть такой тип файла) то при открытии его через WordPad то вижу:RIFF’\x16\x16 и всё. Вот.
Мне надо что бы в Memo было выведено реальное имя файла(допустим: !!!.avi).

tesseract (2006-03-04 13:45:00) [13]

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

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

Virgo_Style (2006-03-04 13:07:00) [14]
Есть у меня такое подозрение, что "чушь" - это и есть содержимое .N - файла. А вообще на развод что-то смахивает...

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

Der Nechk@ssoff (2006-03-04 12:59:00) [15]
Вот полный текст проги.Посути это конвертер из *.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.

Der Nechk@ssoff (2006-03-04 12:23:00) [16]
Спасибо!Скомпилировал.НО в Memo прога выводит всякую чушь! И отказувается грузить большие файлы(1Гб).

DesWind (2006-03-04 11:42:00) [17]
Memo1.Lines.LoadFromFile/SaveToFile

unknown (2006-03-04 11:42:00) [18]
>Der Nechk@ssoff © (04.03.06 10:56) [3]
Показывай, как делаешь

Der Nechk@ssoff (2006-03-04 10:56:00) [19]
Спасибо! НО при компиляции Delphi выдет ошибку:Undeclared identifier:'load from file'.Тоже и с Save From file.Пмогите исправить!

unknown (2006-03-04 10:19:00) [20]
Вот тут есть пример
Program Files\Borland\Delphi7\Demos\Doc\TextEdit\

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »