VPF::ShellExecute не открывает ссылку - Форум программистов

CodeMonkey

Дата 26.9.2010, 23:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Akella, ты чего троллишь?

Добавлено через 3 минуты и 23 секунды

Цитата(Akella @ 25.9.2010, 23:29

)

и в третьем параметре можно заменить pChar на PAnsiChar

Цитата(xkor @ 26.9.2010, 05:15

)

а то компилятор не верно поймёт.., ну или сразу в AnsiString хранить:

Вы чего ваще творите? Сейчас у человека такая каша в голове будет.

Правильными вариантами могут быть только:

1.

Код

var
  Link: String;

...

  ShellExecute(0, nil, PChar(Link), nil, nil, SW_SHOWNORMAL);

Код

var
  Link: AnsiString;

...

  ShellExecuteA(0, nil, PAnsiChar(Link), nil, nil, SW_SHOWNORMAL);

Код

var
  Link: WideString; // или UnicodeString

...

  ShellExecuteW(0, nil, PWideChar(Link), nil, nil, SW_SHOWNORMAL);

Всё! Никаких "ShellExecute(0, nil, PAnsiChar".

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Akella

Дата 26.9.2010, 23:43 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(CodeMonkey @ 26.9.2010, 23:04

)

Akella, ты чего троллишь?

Я?

Ну блин....

Добавлено через 2 минуты и 25 секунд
CodeMonkey, т.е. этот код нерабочий?

Код

ShellExecute(Handle, 'open', PAnsiChar('http://www.makeit-team.com/'), nil, nil, SW_MAXIMIZE);

Keeper89

Дата 26.9.2010, 23:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Цитата(Akella @ 26.9.2010, 23:43

)

CodeMonkey, т.е. этот код нерабочий?

Этот будет рабочий.

CodeMonkey правильно сказал, что без указания конкретного строкового типа sLink это пустая болтовня и привел возможные варианты.

Это сообщение отредактировал(а) Keeper89 - 26.9.2010, 23:56

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

0x0027

Дата 26.9.2010, 23:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 29.1.2010

Репутация: нет
Всего: -1

Цитата(Akella @ 26.9.2010, 21:38

)

Ну товарищи дорогие , мы в разделе Delphi или C++?

надо уметь признавать свои ошибки.

0x0027

Дата 27.9.2010, 00:28 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 29.1.2010

Репутация: нет
Всего: -1

Цитата(Keeper89 @ 26.9.2010, 23:56

)

Этот будет рабочий.

не будет работать. ибо ShellExecuteW. компилятор попросту не пропустит.

вообще топик бессмысленный. самая вероятная причина указана в первом ответе CodeMonkey

Добавлено через 4 минуты и 2 секунды
и последнее, вопрос к топикстартеру: а какое значение собственно говоря возвращает ваша "проблемная" функция?

Keeper89

Дата 27.9.2010, 02:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Цитата(0x0027 @ 27.9.2010, 00:28

)

не будет работать. ибо ShellExecuteW. компилятор попросту не пропустит.

Согласен

Цитата(0x0027 @ 27.9.2010, 00:28

)

и последнее, вопрос к топикстартеру

кажется он уже забыл о вопросе smile

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Akella

Дата 27.9.2010, 10:00 (ссылка)

(голосов:2)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(0x0027 @ 26.9.2010, 23:59)

Цитата(Akella @ 26.9.2010, 21:38

)

Ну товарищи дорогие , мы в разделе Delphi или C++?

надо уметь признавать свои ошибки.

Ты что... совсем? Какие ошибки? smile

Добавлено через 2 минуты и 8 секунд
Мой код, мой пример, работает уже лет пять. Это значит, что я оказался неправ? smile

Добавлено через 3 минуты и 31 секунду
Ещё раз обратите на второй параметр.
http://forum.vingrad.ru/index.php?showtopi...t&p=2218559
И что там нужно указывать.

Это сообщение отредактировал(а) Akella - 27.9.2010, 10:01

Snowy

Дата 27.9.2010, 11:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Юзай ShellExecuteEx. Собственно, ShellExecute его и юзает. Но вот с кодировками порой дружит плохо.
Вот такая функция работает корректно:

Код

procedure ShellExec(CmdStr: WideString);
var
  sei: TShellExecuteInfoW;
begin
  FillChar(sei, SizeOf(sei), 0);
  sei.cbSize := SizeOf(sei);
  sei.lpFile := PWideChar(CmdStr);
  sei.nShow := SW_SHOWNORMAL;
  ShellExecuteExW(@sei);
end;

0x0027

Дата 27.9.2010, 12:13 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 29.1.2010

Репутация: нет
Всего: -1

Цитата(Akella @ 27.9.2010, 10:00

)

Ты что... совсем? Какие ошибки?

я то как раз не совсем.
так и быть, используя твой наставнический тон из прошлых сообщений, покажу тебе как минимум 3 твоих ошибки

1)

Цитата(Akella @ 25.9.2010, 22:29

)

klyaksa, а почему второй параметр nil , нужно указать действие: open, print, explore и т.д.

Цитата(Akella @ 25.9.2010, 22:29

)

и в третьем параметре можно заменить pChar на PAnsiChar

Цитата(Akella @ 26.9.2010, 10:06

)

Null и Nil разные вещи

(ес-но в контексте мсдн)

CodeMonkey

Дата 27.9.2010, 15:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Цитата(Akella @ 27.9.2010, 00:43

)

CodeMonkey, т.е. этот код нерабочий?

Это нерабочий код!

Цитата(Keeper89 @ 27.9.2010, 00:56

)

Этот будет рабочий.

Не ври ;)

Вы это не видели что-ли?

Цитата(klyaksa @ 25.9.2010, 17:04

)

Сейчас дельфи 2009

Этот ваш код в D2009 эквивалентен:

Код

ShellExecuteW(0, nil, PAnsiChar(...

Как несложно догадаться, это работать не должно.

Цитата(Snowy @ 27.9.2010, 12:25

)

Но вот с кодировками порой дружит плохо

И например?..

Цитата(Akella @ 27.9.2010, 11:00

)

Мой код, мой пример, работает уже лет пять. Это значит, что я оказался неправ?

Если что-то работает - это ещё не означает, что это вообще должно работать.

Вывод о работоспособности кода не должен основываться (только) на эксперименте.

Да, ты неправ. Почему - я указал выше.

Цитата(Akella @ 27.9.2010, 11:00

)

Ещё раз обратите на второй параметр.
http://forum.vingrad.ru/index.php?showtopi...t&p=2218559
И что там нужно указывать.

Для слепых цитирую ещё раз:

Цитата

NULL
For systems prior to Microsoft Windows 2000, the default verb is used if it is valid and available in the registry. If not, the "open" verb is used.
For Windows 2000 and later systems, the default verb is used if available. If not, the "open" verb is used. If neither verb is available, the system uses the first verb listed in the registry.

Это - цитата из MSDN. Что означает, что этот текст написан для C/C++. Что такое NULL в C-языках? Это нулевой указатель. В Delphi это будет nil.

Переводя MSDN на Delphi, получаем:

Цитата

nil
For systems prior to Microsoft Windows 2000, the default verb is used if it is valid and available in the registry. If not, the "open" verb is used.
For Windows 2000 and later systems, the default verb is used if available. If not, the "open" verb is used. If neither verb is available, the system uses the first verb listed in the registry.

P.S. Как несложно догадаться, NULL в Delphi <> NULL в C/C++.

Это сообщение отредактировал(а) CodeMonkey - 27.9.2010, 16:03

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Akella

Дата 27.9.2010, 16:28 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(CodeMonkey @ 27.9.2010, 15:54

)

Цитата(klyaksa @ 25.9.2010, 17:04 Найти цитируемый пост)
Сейчас дельфи 2009

2009

, моя невнимательно.
Приношу извинения. Беру слова обратно. smile

Добавлено через 8 минут и 18 секунд

Код

ShellExecute(0, nil, pChar(sLink), nil, nil, SW_SHOWNORMAL);

я не знаю, что там у автора в sLink, но у меня код работает и на семёрке и на XP
Скомпилировал на D2010.
Программа запускает браузер и в нём открывается сайт

Snowy

Дата 27.9.2010, 17:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Пример кривой работы с кодировками могут наблюдать пользователи qip.
Там как раз возникают проблемы, при попытке открыть урл, где есть национальные символы.
Таких много в википедии.
Также есть проблемы с открытием урлов в файрфоксе, если есть русские буквы.
Да и вообще, ShellExecute - всего лишь упрощённая обёртка над ShellExecuteExW.

Akella

Дата 27.9.2010, 20:03 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Т.е. если в sLink будет русский текст, ту будут проблемы?

klyaksa

Дата 27.9.2010, 20:30 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 15.9.2005

Репутация: нет
Всего: нет

Цитата(Keeper89 @ 27.9.2010, 02:21

)

кажется он уже забыл о вопросе

Никто не забыт, ничто не забыто...
1. Про Ansi - я ж написал 2009, следовательно ShellExecute работает с PAnsiChar. Ну так с этим, вроде, разобрались. Но для эксперимента проверю ShellExecuteA.
2. Про 'open' - вроде не обязателен, но проверю...
Просто в виртуальной машине работет на хп, а до реального, где заметил косяк не доберусь.

Akella

Дата 27.9.2010, 21:58 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

klyaksa, открой великую тайну, скажи что в sLink

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »