Открытие файла по двойному щелчку мышкой

[resident]

Подскажите, как сделать открытие файла. Код из Делфи не проходит.
Пишет Error: Illegal Qualifier на .lpData

Код: Выделить всё

type
  TfMain = class(TForm)
    ...
    public
      { public declarations }
      procedure ReceiveMessageForLoad(var Msg: TMessage); message WM_COPYDATA;
    end;
...
var
  RecievedStr: AnsiString = '';

procedure TfMain.ReceiveMessageForLoad(var Msg: TMessage);   
  var
    pcd : PCopyDataStruct;
    DlgSelected: integer;
  begin
    pcd := PCopyDataStruct(Msg.LParam);
    RecievedStr:=string(PAnsiChar(pcd.lpData)); // <<<<< РУГАЕТСЯ ЗДЕСЬ на .lpData
   ...
    // загрузка нового файла
    file_name:=string(RecievedStr); // строковая переменная
    file_open; // процедура открытия
  end;


[Mr.Smart]

Код: Выделить всё

RecievedStr:=string(PAnsiChar(pcd^.lpData));

[resident]

Спасиб, работает!

Добавлено спустя 36 минут 56 секунд:
Эх, файлы с русскими буквами в названии не читает.
Пробовал по всякому:

Код: Выделить всё

var
  RecievedStr: String = '';     
...
RecievedStr := ansitoutf8(AnsiString(PAnsiChar(pcd^.lpData)));

Код: Выделить всё

RecievedStr: AnsiString = '';
...
RecievedStr := AnsiString(PAnsiChar(pcd^.lpData)); 

Код: Выделить всё

var
  RecievedStr: String = ''; 
...
RecievedStr := ansitoutf8(PAnsiChar(pcd^.lpData));

[Лекс Айрин]

resident, SysToUTF8(MyFile) пробовали?

[resident]

SysToUTF8(MyFile) пробовали?

Попробовал, только не понятно в какой комбинации.
И CP1251ToUTF8 пробовал. И PAnsiChar на PChar менял, и AnsiString на String.
Прикол в том, что английские названия в любой комбинации работают, а вот наши буквы везде знаками вопроса. Никак не получается

[Лекс Айрин]

resident У меня процедура сохранения такова:

Код: Выделить всё

var
  Form1: TForm1;
  MyFile, FileTree:string;

Procedure F_Save;
Var
   Str:TStringList;
   txt:string;
begin
     {проверить, не будут ли вылазить косяки в линуксе}
  Str:=TStringList.Create;
  txt:=Form1.MainEditor.Text;
  Str.Add(txt);
  Str.SaveToFile(UTF8ToAnsi(MyFile)); //общее сохранение <<<<<<<<<------------------------------

  Form1.Caption:=MyFile+'             LexEditor';
  Str.Free;

end;             


procedure TForm1.MenuItem10Click(Sender: TObject);
  Begin
       F_save; // вынесено в процедуру, для возможности использования в "Сохранить как"
  End;

procedure TForm1.MenuItem11Click(Sender: TObject);
Var
    tmpFile:string;
begin
  tmpFile:=MyFile;
  Form1.SaveDialog1.FileName:=MyFile;
  If Form1.SaveDialog1.Execute then
  Begin
    MyFile:= Form1.SaveDialog1.FileName;
    F_Save;

  end
  else
      Begin
           MyFile:=tmpFile;
      end;
end;     


все работает

ЗЫ: а SysToUTF8(MyFile) у меня в другом месте работает (( эт я тогда прокосячил с советом

[resident]

У меня процедура сохранения такова

Не пойму причем здесь сохранение?
У меня ж загрузка не работает. А сохранение разве что-то изменит? Например, беру нормально загружаемый файл "test.myext" и переименовываю в проводнике Виндовс на наши буквы "тест.myext". Больше файл не грузится, переименовываю на английские обратно - грузится.

[Лекс Айрин]

residentresident, пардон... зашиваюсь (((

вот здесь, и правда работает UTF8ToSys(MyFile). Почему такая несправедливость не помню, но все работает. Могу, для пробы, предоставить весь код.

Код: Выделить всё

procedure TForm1.MenuItem8Click(Sender: TObject);  // в работе
var
  Str:TStringList;
begin
  Str:=TStringList.Create;
  if OpenDialog1.Execute then
       Begin
            MyFile:=OpenDialog1.FileName;
            Form1.Caption:=MyFile+'             LexEditor';
            // ожидается выбор кодировки текста

           Case OpenDialog1.FilterIndex of
             1:begin
                 {$IFDEF MSWINDOWS}
                 Str.LoadFromFile(UTF8ToSys(MyFile));
                 {$ENDIF}
                 {$IFDEF LINUX} Str.LoadFromFile(MyFile);   {$ENDIF}
                 Form1.MainEditor.Lines:=Str;
               end;
              2:Begin
                {$IFDEF MSWINDOWS}
                 Str.LoadFromFile(UTF8ToSys(MyFile));
                 {$ENDIF}
                 {$IFDEF LINUX} Str.LoadFromFile(MyFile);   {$ENDIF}

                 Form1.MainEditor.Lines.Text:=CP1251ToUTF8(Str.Text);

              end;
              else begin end;
             end;
       end
  else Begin end;
  Str.Free;
end;


[resident]

Могу, для пробы, предоставить весь код.

Спасиб, пока наверное не нужно.
А у Вас в коде есть загрузка по двойному щелчку?
Просто через OpenDialog у меня вообще без всяких конвертаций открывается.
Не работает именно загрузка двойным щелчком по файлу. Нда

[Лекс Айрин]

resident, tсли честно, не могу понять что именно Вам надо. Открытие файлов внутри Вашей программы? Или открытие программы в системе (ОС) двойным кликом по файлу? К тому же из выложенной части кода непонятно как вызывается метод. Да и как именно сохраняется файл?

Просто через OpenDialog у меня вообще без всяких конвертаций открывается.

Попробуйте использовать ShowMessage, для проверки текстовой строки и подбора нужного преобразования.

[resident]

Или открытие программы в системе (ОС) двойным кликом по файлу?

Да, это именно и надо. Чего-то я не то делал . Надо было в конструктор формы записать:

Код: Выделить всё

    FileName := '';
    If ParamCount > 0 then
      FileName := AnsiToUTF8(ParamStr(1));
    if FileName <> ''
      then LoadFromFile;


[Лекс Айрин]

resident, по тому коду, что есть....

then LoadFromFile;

Что открываем-с?
У меня так-с...

Код: Выделить всё

if ParamStr(1)='' then   <<------------ внимание, здесь пустая строка!!
        begin
        end
     else Begin
               MyFile:=systoutf8(paramStr(1)+'             LexEditor'); 
               Form1.MainEditor.Lines.LoadFromFile(ParamStr(1));


           End;


[resident]

Что открываем-с?

LoadFromFile? Так это у меня процедура так называется
Параметры проекта хранятся в xml файле, вот эта процедура его и отрывает.

systoutf8(paramStr(1)

Попробовал, и так (systoutf8) тоже грузит файлы с нашими названиями.
Но оставил все-таки AnsiToUTF8, т.к. ParamStr объявлена как Ansi.

Код: Выделить всё

Function ParamStr(Param : Integer) : Ansistring; 

[Лекс Айрин]

resident, не путай, преобразование, которое ты привел, идет для совершенно левых, в контексте разговора, целей... а именно, для отображения в заголовке окна и сохранения строки пути для дальнейшего сохранения файла (не открытия). Попробуй ничего не преобразовывать. Хотя, как я понял, проблему ты уже решил...

Кстати, там ошибка, правильнее эту строчку читать так:

Код: Выделить всё

MyFile:=systoutf8(paramStr(1));
Form1.Caption:=UTF8ToSys(MyFile)+'             LexEditor';



И непонятно почему я это пропустил ((

[resident]

Попробуй ничего не преобразовывать.

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