Открытие файлов с русскими названиями в приложениях. Lazarus

@Kiminaro · Регистрация: 03.04.2016

Всем привет. Хочу открыть файл через Paint, который уже имеется в Timage1, все хорошо, все работает, но при открытии файла где в пути присутствует русские символы, выдает ошибку. Есть решения? Код ниже.

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

Pascal

procedure TForm1.MenuItem2Click(Sender: TObject);
begin
  if Open_image.FileName = '' then begin
   ShellExecute(0,nil, PChar('"mspaint.exe"'),PChar('""'),nil,1);
   end else
  ShellExecute(0,nil, PChar('"mspaint.exe"'),PChar('"'+Form1.memo1.Lines[IndexImage]+'"'),nil,1);
end;

Нашел что-то по типу UTF8ToSys но не понял как с ним работать.

@volvo · 04.04.2016, 18:25

Какая версия Лазаруса (и версия ОС, заодно)? В новой (1.6.0) все уже переведено на UTF8, так что никаких проблем с открытием файлов с любыми символами в путях не возникает. Проверил сейчас под Win7 + Lazarus 1.6, нормально открывает файлы не только с кириллицей, а и с фарси в пути.

@Kiminaro · 04.04.2016, 18:38 **[ТС]**

Lazarus 1.6
Win10

quwy · 04.04.2016, 18:41

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

Проверил сейчас под Win7 + Lazarus 1.6, нормально открывает файлы не только с кириллицей, а и с фарси в пути.

Странно. Функция ShellExecute ждет UTF-16 либо ANSI, а лазарус из выражения PChar('"'+Form1.memo1.Lines[IndexImage]+'"') возвращает указатель на строку в UTF-8. Как же оно работает у вас? Или он делает автоматическую перекодировку при вычислении результата выражения вида PChar(UTF8String)?

@volvo · 04.04.2016, 18:49

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

Или он делает автоматическую перекодировку при вычислении результата выражения вида PChar(UTF8String)?

Возможно.

По правилам, однако, нужно делать так:

Pascal

1 2	ShellExecute(0, nil, PWideChar('"mspaint.exe"'), PWideChar(UTF8ToUTF16('"' + Form1.memo1.Lines[IndexImage] + '"')), nil, 1);

(не забыть в uses добавить LazUTF8), Kiminaro, попробуй.

@Kiminaro · 04.04.2016, 19:03 **[ТС]**

volvo, Да, спасибо, все работает, Спасибо!
Пойду почитаю про PWideChar.

Добавлено через 7 минут
volvo, Кстати, вопрос уже в другое русло, но все-таки, вот есть кнопка, которая удаляет из истории (MEmo1 записывает все открывающиеся картинки) последнюю добавленную, а можно сделать так, чтобы удалил текущую которая открыта? Чет сидел вдуплял, но не понял. Извиняюсь за глупости, но это первая программа, да и изучаю программирование всего-ничего.

@volvo · 04.04.2016, 19:13

Ну ты ж открываешь файл, имя которого записано в Memo под индексом IndexImage, так и удаляй строку с этим индексом:

Pascal

1	Memo1.Lines.Delete(IndexImage);

@Kiminaro · 04.04.2016, 19:17 **[ТС]**

volvo, Все так просто, боже, спасибо большое, чет я тут решил изобрести велосипед

.

@volvo Супер-модератор 32486 / 20972 / 8115 Регистрация: 22.10.2011 Сообщений: 36,242 Записей в блоге: 7
	04.04.2016, 18:25	2
	Какая версия Лазаруса (и версия ОС, заодно)? В новой (1.6.0) все уже переведено на UTF8, так что никаких проблем с открытием файлов с любыми символами в путях не возникает. Проверил сейчас под Win7 + Lazarus 1.6, нормально открывает файлы не только с кириллицей, а и с фарси в пути. 0

@Kiminaro 0 / 0 / 0 Регистрация: 03.04.2016 Сообщений: 18
	04.04.2016, 18:38 [ТС]	3
	Lazarus 1.6 Win10 Миниатюры 0

quwy Native x86 5176 / 3022 / 875 Регистрация: 13.02.2013 Сообщений: 9,635
	04.04.2016, 18:41	4
	Сообщение от volvo Проверил сейчас под Win7 + Lazarus 1.6, нормально открывает файлы не только с кириллицей, а и с фарси в пути. Странно. Функция ShellExecute ждет UTF-16 либо ANSI, а лазарус из выражения PChar('"'+Form1.memo1.Lines[IndexImage]+'"') возвращает указатель на строку в UTF-8. Как же оно работает у вас? Или он делает автоматическую перекодировку при вычислении результата выражения вида PChar(UTF8String)? 0

@Kiminaro 0 / 0 / 0 Регистрация: 03.04.2016 Сообщений: 18
	04.04.2016, 19:03 [ТС]	6
	volvo, Да, спасибо, все работает, Спасибо! Пойду почитаю про PWideChar. Добавлено через 7 минут volvo, Кстати, вопрос уже в другое русло, но все-таки, вот есть кнопка, которая удаляет из истории (MEmo1 записывает все открывающиеся картинки) последнюю добавленную, а можно сделать так, чтобы удалил текущую которая открыта? Чет сидел вдуплял, но не понял. Извиняюсь за глупости, но это первая программа, да и изучаю программирование всего-ничего. 0

@Kiminaro 0 / 0 / 0 Регистрация: 03.04.2016 Сообщений: 18
	04.04.2016, 19:17 [ТС]	8
	volvo, Все так просто, боже, спасибо большое, чет я тут решил изобрести велосипед . 0

Опции темы

Открытие файлов с русскими названиями в приложениях. Lazarus

Решение