OpenDialog и клики ;)

@Win32 · Регистрация: 18.08.2009

Author24 — интернет-сервис помощи студентам

Всем привет! подскажите пожалуйста, я вставил OpenDialog и после выбора файла, его текст заношу в MEMO!
Всё норм, НО! Файлы выбираються при ОДНОМ клике левой клавишей мышки.

Я так понимаю, что я использую не то событие, да?

Каккое событие правильно использовать? Или как сделать, чтобы было так как везде?

Заранее спасибо, уважаемые форумчане

Добавлено через 42 секунды

Delphi

procedure TForm1.OpenDialog1SelectionChange(Sender: TObject);
begin
 
Memo1.Clear();
Assignfile(ChoisedFile,OpenDialog1.FileName);
Reset(ChoisedFile);
while(not Eof(ChoisedFile)) do
begin
ReadLn(ChoisedFile, FileText);
Memo1.Text := TrimLeft(Memo1.Text+#13#10+FileText);
end;
CloseFile(ChoisedFile);
Form1.Caption := ExtractFileName(OpenDialog1.FileName)+' - Блокнот';
end;

@schdub · 04.09.2009, 23:05

Да обработчик не тот. Кинь на форму кнопку, вот код ее обработчика

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    // пользователь выбрал файл грузим его в мемо
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  end;
end;

@Win32 · 04.09.2009, 23:22 **[ТС]**

Извините, но мне необходимо именно тем способом, которым я делал.
Это не моя прихоть, а лабораторная работа с интститута.

Возможно ли так?
Спасибо.

@lexus_ilia · 05.09.2009, 01:03

Сообщение от Win32

Возможно ли так?

А Вы напишите полное задание и мы докажем Вашему преподавателю, что можно решать совершенно разными путями.

@Win32 · 05.09.2009, 02:30 **[ТС]**

Задание было просто в цикле прочитать файл, что в принципе я и сделал.
При этом я захотел добавить выбор файла, а не просто чтение стандартного, т.е. просто прописать к нему путь, но столкнулся с проблемой в OpenDialog ;(

Воть... Если бы Вы подсказали как мне "вывернуться" теперь, я был бы безгранично признателен! )))

@o-user · 05.09.2009, 09:15

А какой полный код Вашей программы?

polivets предложил абсолютно верный вариант!
А что в Вашей программе?
1. Вы запускаете opendialog (очевидно какой-то кнопкой).
2. Затем (если у Вас настроено) при выборе файла сразу срабатывает обработчик события OpenDialog1SelectionChange.

А polivets предложил так:
1. Вы запускаете opendialog (очевидно какой-то кнопкой).
2. Затем выбираете любой файл в любом каталоге, щелкаете по нему два раза (или нажимаете ОК) и только после этого начинается работа с файлом: чтение, вывод и т.п.

Что не устраивает?

Добавлено через 2 минуты
т.е. это будет делать что и Ваша программа, только после двойного щелчка по имени файла:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute=false then exit;
 
//Ваша часть программы
Memo1.Clear();
Assignfile(ChoisedFile,OpenDialog1.FileName);
Reset(ChoisedFile);
while(not Eof(ChoisedFile)) do
begin
ReadLn(ChoisedFile, FileText);
Memo1.Text := TrimLeft(Memo1.Text+#13#10+FileText);
end;
CloseFile(ChoisedFile);
Form1.Caption := ExtractFileName(OpenDialog1.FileName)+' - Блокнот';
end;

@schdub · 05.09.2009, 13:51

Сообщение от Win32

Задание было просто в цикле прочитать файл, что в принципе я и сделал.
При этом я захотел добавить выбор файла, а не просто чтение стандартного, т.е. просто прописать к нему путь, но столкнулся с проблемой в OpenDialog ;(

Воть... Если бы Вы подсказали как мне "вывернуться" теперь, я был бы безгранично признателен! )))

Интересно было бы взглянуть на форму Вашего приложения. Как вы иницализируете процесс "в цикле прочитать файл". Обычно, это делается, как реакция на нажатие кнопки или пункта меню. Или в крайнем случае, в обработчике FormCreate. Вот туда - то и нужно вставить строку

Delphi

1	if OpenDialog1.Execute then

Документация Delphi:

Use Execute method to display the dialog box. Execute returns true when the user makes a selection and clicks OK, and returns false when the user closes the dialog without making a selection.

В любом случае, документация рулит

rtfm, одним словом. Магическое слов - TOpenDialog. Может и найдешь, что тебе надо.

@Win32 · 05.09.2009, 16:07 **[ТС]**

Всё получилось!

Спасибо вам большое )))

Добавлено через 32 минуты
Извините, а вы не подскажите как реализовать чтение файла по двойному клику (по файлу)...
Я имею ввиду просто открытие файла с помощью моей программы.
???

@schdub · 05.09.2009, 16:30

Т.е. хотите ассоциировать, какой-либо тип файла (по расширению) с вашей программой? Например, как блокнот открывает файлы с расширением txt?

@Win32 · 05.09.2009, 16:34 **[ТС]**

Именно.

@schdub · 05.09.2009, 16:38

Delphi

uses
  Registry;
  
{ ... }
 
// ---------------   
// ассоциируем файл с нашей программой
// ---------------
procedure SetupExtension;
var
    Reg: TRegistry;
begin
    Reg := TRegistry.Create;
 
    reg.RootKey := HKEY_CLASSES_ROOT;
    reg.LazyWrite := false;
 
    // ассоциируем файлы с расширением .TRY с MyProgram.Project
    reg.OpenKey('.try', true);
    reg.WriteString('', 'MyProgram.Project');
    reg.CloseKey;
 
    // записываем описание типа файла
    reg.OpenKey('MyProgram.Project', true);
    reg.WriteString('', 'MyProgram try file');
    reg.CloseKey;           
 
    // записываем команду запуска         
    reg.OpenKey('MyProgram.Project\shell\open\command', true);
    reg.WriteString('', Application.ExeName + ' "%1"');
    reg.CloseKey;
 
    // ассоциируем с файлам '.TRY' иконку нашего приложения
    reg.OpenKey('MyProgram.Project\DefaultIcon',true);
    reg.WriteString('', Application.ExeName + ',1');
    reg.CloseKey;
    
    Reg.Free;
end;

только подправьте строки, на те что нужно вам - это процедура установки, нужно, чтобы Ваша программа была запущена от имени пользователя из группы администраторы.

@Win32 · 05.09.2009, 16:54 **[ТС]**

Спасибо большое - это действительно полезная инофрмация, однако меня больше итересовало как именно словить текст файла в Memo, если открыть файл с "Открыть с помощью..."!

Т.е. Я уже умею прочитать файл с помощью OpenDialog благодаря Вам, а вот как словить текст если я не программу свою открываю, а сам файл с помощью моей программы?

@schdub · 05.09.2009, 17:05

Если Вы не выполните ассоциацию, то ОС не будет передавать вашей программе, путь к файлу, на который пользовал нажал.

Вот приблизительное использование в нем в кратце описано, как работать с командной строкой. Советую поискать на нашем форуме инфу по данной теме (Командная строка, ParamStr).

Delphi

procedure TForm1.FormCreate(Sender: TObject);
var FileName : String;
begin
  FileName := '';
  if ParamCount = 1 then
  begin
    // если программа запущена по дв клику на
    // файле с расширением ассоциированном с ней
    // или присутсвуют доп параметры
    if ParamStr(1)='/install' then
    begin                         
      // проверям есть ли ключ для установки
      // если программа запущена, например
      // с:\Project1.exe /install
      // то выполняем ассоциацию 
      SetupExtension;                
    end else if ParamStr(1)='/uninstall' then
    begin
      // проверям есть ли ключ для удаления ассоциации
      // с:\Project1.exe /uninstall
      // то выполняем удаление из реестра информации
      // о нашей проге      
    end else
    begin
      // иначе, делаем предположение, что в параметре
      // командной строки путь к файлу
      // с:\Project1.exe d:\documents\file.typ
      FileName := ParamStr(1);
      // в FileName будет d:\documents\file.typ
    end;
  end                      
  else                                      
  begin
    // программа запущена по дв клику на исполнимом файле
  end;                         
                         
  // здесь в FileName путь к выбранному пользователем файлу
  // или пустая строка просто отображем что в этой переменной     
 
  ShowMessage(FileName);
end;

@Win32 · 05.09.2009, 18:52 **[ТС]**

Ой... Подскажите пожалуйста последний раз!!!!

Вот я попробовал так сделать, получилось следующее:

FileName ловит нормальный путь к файлу, т.е. все нормально после двойного щелчка по файлу в приложение передаёться адрес этого файла, НО почему то не может его прочитать, выдаёт ошибку I/O 6 - Что это и как с этим бороться??

Заранее спасибо!!!

Добавлено через 43 минуты
Вот ещё. Если файл пустой, то он нормально читаеться и даже сохраняеться, но если файл НЕ пустой, то возникает данная ошибка!

Добавлено через 42 секунды

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, Inifiles, Registry;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    OpenDialog1: TOpenDialog;
    PrintDialog1: TPrintDialog;
    procedure N12Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1       : TForm1;
  ChoisedFile : TextFile;
  FileText    : string;
  Ini         : Tinifile;
  FileName    : System.string;
 
implementation
 
{$R *.dfm}
 
procedure SetupExtension;
var
    Reg: TRegistry;
begin
    Reg := TRegistry.Create;
 
    reg.RootKey := HKEY_CLASSES_ROOT;
    reg.LazyWrite := false;
 
    // ассоциируем файлы с расширением .TRY с MyProgram.Project
    reg.OpenKey('.try', true);
    reg.WriteString('', 'MyProgram.Project');
    reg.CloseKey;
 
    // записываем описание типа файла
    reg.OpenKey('MyProgram.Project', true);
    reg.WriteString('', 'MyProgram try file');
    reg.CloseKey;
 
    // записываем команду запуска
    reg.OpenKey('MyProgram.Project\shell\open\command', true);
    reg.WriteString('', Application.ExeName + ' "%1"');
    reg.CloseKey;
 
    // ассоциируем с файлам '.TRY' иконку нашего приложения
    reg.OpenKey('MyProgram.Project\DefaultIcon',true);
    reg.WriteString('', Application.ExeName + ',1');
    reg.CloseKey;
 
    Reg.Free;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
FileName := '';
if ParamCount = 1 then
begin
// если программа запущена по дв клику на
// файле с расширением ассоциированном с ней
// или присутсвуют доп параметры
if ParamStr(1)='/install' then
begin
// проверям есть ли ключ для установки
// если программа запущена, например
// с:\Project1.exe /install
// то выполняем ассоциацию
SetupExtension;
end else if ParamStr(1)='/uninstall' then
begin
// проверям есть ли ключ для удаления ассоциации
// с:\Project1.exe /uninstall
// то выполняем удаление из реестра информации
// о нашей проге
end else
begin
// иначе, делаем предположение, что в параметре
// командной строки путь к файлу
FileName:=ParamStr(1);
end;
end
else
begin
// программа запущена по дв клику на исполнимом файле
end;
// здесь в FileName путь к выбранному пользователем файлу
// или пустая строка просто отображем что в этой переменной
if FileExists(FileName) then
begin
ShowMessage(FileName);
Assignfile(ChoisedFile,FileName);
Reset(ChoisedFile);
while(not Eof(ChoisedFile)) do
begin
ReadLn(FileName, FileText);
Memo1.Text := TrimLeft(Memo1.Text+#13#10+FileText);
end;
CloseFile(ChoisedFile);
Form1.Caption := ExtractFileName(FileName)+' - Блокнот';
end;
 
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+ 'Config.ini');
Form1.Width:=Ini.ReadInteger('Size','Width',570);
Form1.Height:=Ini.ReadInteger('Size','Height',388);
Form1.Left:=Ini.ReadInteger('Position','X',110);
Form1.Top:=Ini.ReadInteger('Position','Y',110);
Form1.N28.Checked:=Ini.ReadBool('Buttons','Horizontal',true);
Ini.Free;
if ( Form1.N28.Checked=false ) then
Form1.Memo1.ScrollBars:=ssBoth
else
Form1.Memo1.ScrollBars:=ssVertical
 
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
if (Form1.WindowState=wsNormal) then
begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+ 'Config.ini');
Ini.WriteInteger('Size','Width',form1.width);
Ini.WriteInteger('Size','Height',form1.height);
Ini.WriteInteger('Position','X',form1.left);
Ini.WriteInteger('Position','Y',form1.top);
Ini.WriteBool('Buttons','Horizontal',form1.N28.checked);
Ini.WriteBool('Buttons','Vertical',true);
Ini.Free;
end;
end;
 
procedure TForm1.N10Click(Sender: TObject);
begin
Form1.PrintDialog1.Execute();
end;
 
procedure TForm1.N12Click(Sender: TObject);
begin
Application.Terminate();
end;
 
procedure TForm1.N28Click(Sender: TObject);
begin
if ( Form1.N28.Checked=false ) then
Form1.Memo1.ScrollBars:=ssBoth
else
Form1.Memo1.ScrollBars:=ssVertical
end;
 
procedure TForm1.N5Click(Sender: TObject);
begin
if OpenDialog1.Execute=false then exit;
Memo1.Clear();
Assignfile(ChoisedFile,OpenDialog1.FileName);
Reset(ChoisedFile);
while(not Eof(ChoisedFile)) do
begin
ReadLn(ChoisedFile, FileText);
Memo1.Text := TrimLeft(Memo1.Text+#13#10+FileText);
end;
CloseFile(ChoisedFile);
Form1.Caption := ExtractFileName(OpenDialog1.FileName)+' - Блокнот';
end;
 
procedure TForm1.N6Click(Sender: TObject);
begin
if FileExists(FileName) then
begin
Assignfile(ChoisedFile,FileName);
Reset(ChoisedFile);
ReWrite(ChoisedFile);
WriteLn(ChoisedFile,Memo1.Text);
CloseFile(ChoisedFile);
end else
begin
Assignfile(ChoisedFile,OpenDialog1.FileName);
Reset(ChoisedFile);
ReWrite(ChoisedFile);
WriteLn(ChoisedFile,Memo1.Text);
CloseFile(ChoisedFile);
end;
end;
 
end.

@schdub · 05.09.2009, 19:47

Для меня осталось загадкой, что все же делает N6Click (хотя бы для себя пишите комментарии, а тем более, если Вы хотите, чтобы Ваш код кто-то понял), но предположу, что здесь происходит сохранение содержимого Memo1 в текстовый файл. Так вот, весь этот код можно заменить на

Delphi

1	Memo1.Lines.SaveToFile(FileName);

Добавлено через 5 минут
Ну а если, допустим, Вам нужно, обязательно в цикле сохранять, то

Delphi

  Assignfile(ChoisedFile, FileName);
  ReWrite(ChoisedFile);
  for i:=1 to Memo1.Lines.Count-1 do
    WriteLn(ChoisedFile, Memo1.Lines.Strings[i]);
  CloseFile(ChoisedFile);

Но это велосипед, и лучше использовать первый вариант.

@Win32 · 05.09.2009, 19:59 **[ТС]**

Это понял. Так, а по открытию что?

Добавлено через 6 минут
Спасибо большое. Всё получилось...

@Sanprof · 28.10.2010, 17:43

Delphi

    // ассоциируем файлы с расширением .TRY с MyProgram.Project
    reg.OpenKey('.try', true);
    reg.WriteString('', 'MyProgram.Project');
    reg.CloseKey;

Что в данном случае означает "MyProgram.Project"??? Объясните пожалуйста!

@Win32 · 28.10.2010, 18:22 **[ТС]**

Прошло больше года и вот я снова здесь уже с достаточным багажом знаний! Спасибо большое всем кто мне год назад тут помогал!

Сообщение от Sanprof

Delphi

    // ассоциируем файлы с расширением .TRY с MyProgram.Project
    reg.OpenKey('.try', true);
    reg.WriteString('', 'MyProgram.Project');
    reg.CloseKey;

Что в данном случае означает "MyProgram.Project"??? Объясните пожалуйста!

MyProgram.Project - это всего лишь ключ. Его Вы можете заменить (только везде тогда) на свой, это роли не играет

@Sanprof · 28.10.2010, 18:49

Пасиб, а то я подумал, что здесь MyProgram.Project будет выполнять определенные действия в моей программе, и будет зависеть от того, что там напишешь.

@Win32 25 / 24 / 1 Регистрация: 18.08.2009 Сообщений: 126
	04.09.2009, 23:22 [ТС]	3
	Извините, но мне необходимо именно тем способом, которым я делал. Это не моя прихоть, а лабораторная работа с интститута. Возможно ли так? Спасибо. 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	05.09.2009, 01:03	4
	Сообщение от Win32 Возможно ли так? А Вы напишите полное задание и мы докажем Вашему преподавателю, что можно решать совершенно разными путями. 1

@Win32 25 / 24 / 1 Регистрация: 18.08.2009 Сообщений: 126
	05.09.2009, 02:30 [ТС]	5
	Задание было просто в цикле прочитать файл, что в принципе я и сделал. При этом я захотел добавить выбор файла, а не просто чтение стандартного, т.е. просто прописать к нему путь, но столкнулся с проблемой в OpenDialog ;( Воть... Если бы Вы подсказали как мне "вывернуться" теперь, я был бы безгранично признателен! ))) 0

@Win32 25 / 24 / 1 Регистрация: 18.08.2009 Сообщений: 126
	05.09.2009, 16:07 [ТС]	8
	Всё получилось! Спасибо вам большое ))) Добавлено через 32 минуты Извините, а вы не подскажите как реализовать чтение файла по двойному клику (по файлу)... Я имею ввиду просто открытие файла с помощью моей программы. ??? 0

@schdub 3071 / 1409 / 425 Регистрация: 19.01.2009 Сообщений: 3,880
	05.09.2009, 16:30	9
	Т.е. хотите ассоциировать, какой-либо тип файла (по расширению) с вашей программой? Например, как блокнот открывает файлы с расширением txt? 1

@Win32 25 / 24 / 1 Регистрация: 18.08.2009 Сообщений: 126
	05.09.2009, 16:34 [ТС]	10
	Именно. 0

@Win32 25 / 24 / 1 Регистрация: 18.08.2009 Сообщений: 126
	05.09.2009, 16:54 [ТС]	12
	Спасибо большое - это действительно полезная инофрмация, однако меня больше итересовало как именно словить текст файла в Memo, если открыть файл с "Открыть с помощью..."! Т.е. Я уже умею прочитать файл с помощью OpenDialog благодаря Вам, а вот как словить текст если я не программу свою открываю, а сам файл с помощью моей программы? 0

@Win32 25 / 24 / 1 Регистрация: 18.08.2009 Сообщений: 126
	05.09.2009, 19:59 [ТС]	16
	Это понял. Так, а по открытию что? Добавлено через 6 минут Спасибо большое. Всё получилось... 0

@Sanprof 96 / 96 / 16 Регистрация: 28.01.2008 Сообщений: 426
	28.10.2010, 18:49	19
	Пасиб, а то я подумал, что здесь MyProgram.Project будет выполнять определенные действия в моей программе, и будет зависеть от того, что там напишешь. 0