Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ShellExecute не открывает ссылку 
:(
    Опции темы
klyaksa
Дата 25.9.2010, 16:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Под 7 все хорошо, по ХР не открывается ссылка по коду:
Код

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

В чем проблема? В старой версии, вроде, работало. Сейчас дельфи 2009.
PM MAIL   Вверх
xkor
Дата 25.9.2010, 16:08 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



klyaksa, а вы учли что начиная с дельфи 2009 PChar = PWideChar, а предыдущих версиях было PAnsiChar?
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Proxin
Дата 25.9.2010, 18:46 (ссылка) |    (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



slink должен обязательно начинаться с http://
PM MAIL   Вверх
klyaksa
Дата 25.9.2010, 20:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Вот мой (проблемный) код:
Код

var
  sLink: String;
begin
  sLink := 'http://www.yandex.ru' + '?from=' + GetVersion(application.ExeName);
  ShellExecute(0, nil, pChar(sLink), nil, nil, SW_SHOWNORMAL);
end;        
  

Это сообщение отредактировал(а) klyaksa - 25.9.2010, 20:15
PM MAIL   Вверх
Akella
Дата 25.9.2010, 22:29 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

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



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

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

klyaksa, если тебе лень открыть справку или MSDN, то вот, читай, лентяй:

и обрати внимание на Remarks, там есть пример

Код

ShellExecute Function

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

Performs an operation on a specified file.

Syntax

HINSTANCE ShellExecute(          HWND hwnd,
    LPCTSTR lpOperation,
    LPCTSTR lpFile,
    LPCTSTR lpParameters,
    LPCTSTR lpDirectory,
    INT nShowCmd
);
Parameters

hwnd
[in] Handle to the owner window used for displaying a user interface (UI) or error messages. This value can be NULL if the operation is not associated with a window.
lpOperation
[in] Pointer to a null-terminated string, referred to in this case as a verb, that specifies the action to be performed. The set of available verbs depends on the particular file or folder. Generally, the actions available from an object's shortcut menu are available verbs. The following verbs are commonly used.
edit
Launches an editor and opens the document for editing. If lpFile is not a document file, the function will fail.
explore
Explores the folder specified by lpFile.
find
Initiates a search starting from the specified directory.
open
Opens the file specified by the lpFile parameter. The file can be an executable file, a document file, or a folder.
print
Prints the document file specified by lpFile. If lpFile is not a document file, the function will fail.
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.

lpFile
[in] Pointer to a null-terminated string that specifies the file or object on which to execute the specified verb. To specify a Shell namespace object, pass the fully qualified parse name. Note that not all verbs are supported on all objects. For example, not all document types support the "print" verb.
lpParameters
[in] If the lpFile parameter specifies an executable file, lpParameters is a pointer to a null-terminated string that specifies the parameters to be passed to the application. The format of this string is determined by the verb that is to be invoked. If lpFile specifies a document file, lpParameters should be NULL.
lpDirectory
[in] Pointer to a null-terminated string that specifies the default directory.
nShowCmd
[in] Flags that specify how an application is to be displayed when it is opened. If lpFile specifies a document file, the flag is simply passed to the associated application. It is up to the application to decide how to handle it.
SW_HIDE
Hides the window and activates another window.
SW_MAXIMIZE
Maximizes the specified window.
SW_MINIMIZE
Minimizes the specified window and activates the next top-level window in the z-order.
SW_RESTORE
Activates and displays the window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when restoring a minimized window.
SW_SHOW
Activates the window and displays it in its current size and position.
SW_SHOWDEFAULT
Sets the show state based on the SW_ flag specified in the STARTUPINFO structure passed to the CreateProcess function by the program that started the application. An application should call ShowWindow with this flag to set the initial show state of its main window.
SW_SHOWMAXIMIZED
Activates the window and displays it as a maximized window.
SW_SHOWMINIMIZED
Activates the window and displays it as a minimized window.
SW_SHOWMINNOACTIVE
Displays the window as a minimized window. The active window remains active.
SW_SHOWNA
Displays the window in its current state. The active window remains active.
SW_SHOWNOACTIVATE
Displays a window in its most recent size and position. The active window remains active.
SW_SHOWNORMAL
Activates and displays a window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when displaying the window for the first time.
Return Value

Returns a value greater than 32 if successful, or an error value that is less than or equal to 32 otherwise. The following table lists the error values. The return value is cast as an HINSTANCE for backward compatibility with 16-bit Windows applications. It is not a true HINSTANCE, however. The only thing that can be done with the returned HINSTANCE is to cast it to an int and compare it with the value 32 or one of the error codes below.

0 The operating system is out of memory or resources. 
ERROR_FILE_NOT_FOUND The specified file was not found. 
ERROR_PATH_NOT_FOUND The specified path was not found. 
ERROR_BAD_FORMAT The .exe file is invalid (non-Microsoft Win32 .exe or error in .exe image). 
SE_ERR_ACCESSDENIED The operating system denied access to the specified file. 
SE_ERR_ASSOCINCOMPLETE The file name association is incomplete or invalid. 
SE_ERR_DDEBUSY The Dynamic Data Exchange (DDE) transaction could not be completed because other DDE transactions were being processed. 
SE_ERR_DDEFAIL The DDE transaction failed. 
SE_ERR_DDETIMEOUT The DDE transaction could not be completed because the request timed out. 
SE_ERR_DLLNOTFOUND The specified DLL was not found. 
SE_ERR_FNF The specified file was not found. 
SE_ERR_NOASSOC There is no application associated with the given file name extension. This error will also be returned if you attempt to print a file that is not printable. 
SE_ERR_OOM There was not enough memory to complete the operation. 
SE_ERR_PNF The specified path was not found. 
SE_ERR_SHARE A sharing violation occurred. 


Remarks

This method allows you to execute any commands in a folder's shortcut menu or stored in the registry.

To open a folder, use either of the following calls: 

ShellExecute(handle, NULL, <fully_qualified_path_to_folder>, NULL, NULL, SW_SHOWNORMAL);

or 

ShellExecute(handle, "open", <fully_qualified_path_to_folder>, NULL, NULL, SW_SHOWNORMAL);

To explore a folder, use: 

ShellExecute(handle, "explore", <fully_qualified_path_to_folder>, NULL, NULL, SW_SHOWNORMAL);

To launch the Shell's Find utility for a directory, use: 

ShellExecute(handle, "find", <fully_qualified_path_to_folder>, NULL, NULL, 0);

If lpOperation is NULL, the function opens the file specified by lpFile. If lpOperation is "open" or "explore", the function attempts to open or explore the folder.

To obtain information about the application that is launched as a result of calling ShellExecute, use ShellExecuteEx.

Note  The Launch folder windows in a separate process setting in Folder Options affects ShellExecute. If that option is disabled (the default setting), ShellExecute uses an open Explorer window rather than launch a new one. If no Explorer window is open, ShellExecute launches a new one.
Windows 95/98/Me: ShellExecute is supported by the Microsoft Layer for Unicode. To use this, you must add certain files to your application, as outlined in Microsoft Layer for Unicode on Windows Me/98/95 Systems.

Function Information

Minimum DLL Version shell32.dll version 3.51 or later 
Custom Implementation No 
Header shellapi.h 
Import library shell32.lib 
Minimum operating systems Windows NT 3.1, Windows 95 
Unicode Implemented as ANSI and Unicode versions.  

See Also




Это сообщение отредактировал(а) Akella - 25.9.2010, 22:37
PM MAIL   Вверх
CodeMonkey
Дата 25.9.2010, 22:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



Цитата(Akella @  25.9.2010,  23:29 Найти цитируемый пост)
а почему второй параметр nil


Сам же и указал:

Цитата
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.


Пуск/выполнить, ввести ссылку - будет работать? Возможно, проблема просто в нарушенных ассоциациях.


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
xkor
Дата 26.9.2010, 04:15 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Цитата(Akella @  25.9.2010,  22:29 Найти цитируемый пост)
и в третьем параметре можно заменить  pChar на PAnsiChar

я бы дополнил:
Код

var
  sLink: String;
begin
  sLink := 'http://www.yandex.ru' + '?from=' + GetVersion(application.ExeName);
  ShellExecute(0, nil, PAnsiChar(AnsiString(sLink)), nil, nil, SW_SHOWNORMAL);
end;

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

var
  sLink: AnsiString;
begin
  sLink := 'http://www.yandex.ru' + '?from=' + GetVersion(application.ExeName);
  ShellExecute(0, nil, PAnsiChar(sLink), nil, nil, SW_SHOWNORMAL);
end;



Это сообщение отредактировал(а) xkor - 26.9.2010, 04:16
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Akella
Дата 26.9.2010, 10:06 (ссылка)   | (голосов:5) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

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



Цитата(CodeMonkey @  25.9.2010,  22:46 Найти цитируемый пост)
Сам же и указал:

Цитата
NULL

Null и Nil разные вещи
PM MAIL   Вверх
0x0027
Дата 26.9.2010, 18:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Цитата(Akella @  26.9.2010,  10:06 Найти цитируемый пост)
Null и Nil разные вещи 

как минимум интересное утверждение. можно пояснить?
PM MAIL   Вверх
Akella
Дата 26.9.2010, 19:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

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



Можно. Только ответь вначале на пару вопросов.
А клавиша F1 не выламана? Или может тебя в гуле забанили? Или мы специально для тебя должны сделать поиск и привести здесь цитаты?
PM MAIL   Вверх
0x0027
Дата 26.9.2010, 20:14 (ссылка) |  (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



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

Добавлено через 3 минуты и 43 секунды
зы если ты хочешь провести аналогию между NULL из мсдн с делфевской функцией Null, то это как минимум.. эм.. неразумно =)
PM MAIL   Вверх
Akella
Дата 26.9.2010, 21:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

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



Цитата(0x0027 @  26.9.2010,  20:14 Найти цитируемый пост)
я оценил ваш искрометный юмор.

никакого юмора smile, тем более искромётного ;)
Просто я уверен, что ответ уже есть,  не в справке, так в гугле. А некоторые ленятся искать.

Добавлено через 3 минуты и 59 секунд
Если кратко, что Nil — это для указателей, а Null — для переменных вариантного типа.

Добавлено через 8 минут и 29 секунд
ms-help://borland.bds5/devcommon/pointertypes_xml.html
Цитата
The reserved word nil is a special constant that can be assigned to any pointer. When nil is assigned to a pointer, the pointer doesn't reference anything.

PM MAIL   Вверх
Akella
Дата 26.9.2010, 21:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

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



ms-help://borland.bds5/delphivclwin32/Variants_Null.html
Цитата

Note: The Null variant returned by the Null function is different from the nil constant in Delphi code and the NULL macro in C++ code. Neither nil nor NULL is a variant. The nil constant is an object reference that does not refer to any actual object. The NULL macro is a pointer that does not refer to any actual object or value. 

Хватит?
PM MAIL   Вверх
БелАмор
Дата 26.9.2010, 21:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Цитата(Akella @  26.9.2010,  21:05 Найти цитируемый пост)
Если кратко, что Nil — это для указателей, а Null — для переменных вариантного типа

Это в Delphi...
А в C/C++ NULL - это нулевой указатель, т.е. то-же самое, что nil в Delphi...
Внимание, вопрос: в MSDN подразумевается дельфийский Null или сишный NULL?
PM   Вверх
Akella
Дата 26.9.2010, 21:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

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



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

Это сообщение отредактировал(а) Akella - 26.9.2010, 21:38
PM MAIL   Вверх
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);


2.
Код
var
  Link: AnsiString;

...

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


3.
Код
var
  Link: WideString; // или UnicodeString

...

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


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


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Akella
Дата 26.9.2010, 23:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

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



Цитата(CodeMonkey @  26.9.2010,  23:04 Найти цитируемый пост)
Akella, ты чего троллишь?

Я? smile Ну блин....

Добавлено через 2 минуты и 25 секунд
CodeMonkey, т.е. этот код нерабочий?
Код
ShellExecute(Handle, 'open', PAnsiChar('http://www.makeit-team.com/'), nil, nil, SW_MAXIMIZE);

PM MAIL   Вверх
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


--------------------
PM MAIL WWW   Вверх
0x0027
Дата 26.9.2010, 23:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Цитата(Akella @  26.9.2010,  21:38 Найти цитируемый пост)
Ну товарищи дорогие   , мы в разделе Delphi или C++?

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

PM MAIL   Вверх
0x0027
Дата 27.9.2010, 00:28 (ссылка) |  (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Цитата(Keeper89 @  26.9.2010,  23:56 Найти цитируемый пост)
Этот будет рабочий.

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

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

Добавлено через 4 минуты и 2 секунды
и последнее, вопрос к топикстартеру: а какое значение собственно говоря возвращает ваша "проблемная" функция?
PM MAIL   Вверх
Keeper89
Дата 27.9.2010, 02:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Цитата(0x0027 @  27.9.2010,  00:28 Найти цитируемый пост)
не будет работать. ибо ShellExecuteW. компилятор попросту не пропустит.

Согласен  smile 
Цитата(0x0027 @  27.9.2010,  00:28 Найти цитируемый пост)
и последнее, вопрос к топикстартеру

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


--------------------
PM MAIL WWW   Вверх
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
PM MAIL   Вверх
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;

PM MAIL   Вверх
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 и т.д.


2) 
Цитата(Akella @  25.9.2010,  22:29 Найти цитируемый пост)
и в третьем параметре можно заменить  pChar на PAnsiChar


3) 
Цитата(Akella @  26.9.2010,  10:06 Найти цитируемый пост)
Null и Nil разные вещи 

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

PM MAIL   Вверх
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++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
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  smile , моя невнимательно.
Приношу извинения. Беру слова обратно. smile

Добавлено через 8 минут и 18 секунд
Код
ShellExecute(0, nil, pChar(sLink), nil, nil, SW_SHOWNORMAL);

я не знаю, что там у автора в sLink, но у меня код работает и на семёрке и на XP
Скомпилировал на D2010.
Программа запускает браузер и в нём открывается сайт
PM MAIL   Вверх
Snowy
Дата 27.9.2010, 17:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Пример кривой работы с кодировками могут наблюдать пользователи qip.
Там как раз возникают проблемы, при попытке открыть урл, где есть национальные символы.
Таких много в википедии.
Также есть проблемы с открытием урлов в файрфоксе, если есть русские буквы.
Да и вообще, ShellExecute - всего лишь упрощённая обёртка над ShellExecuteExW.
PM MAIL   Вверх
Akella
Дата 27.9.2010, 20:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

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



Т.е. если в sLink будет русский текст, ту будут проблемы?
PM MAIL   Вверх
klyaksa
Дата 27.9.2010, 20:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Цитата(Keeper89 @  27.9.2010,  02:21 Найти цитируемый пост)
кажется он уже забыл о вопросе

Никто не забыт, ничто не забыто...
1. Про Ansi - я ж написал 2009, следовательно ShellExecute работает с PAnsiChar. Ну так с этим, вроде, разобрались. Но для эксперимента проверю ShellExecuteA.
2. Про 'open' - вроде не обязателен, но проверю...
Просто в виртуальной машине работет на хп, а до реального, где заметил косяк не доберусь.
PM MAIL   Вверх
Akella
Дата 27.9.2010, 21:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

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



klyaksa, открой великую тайну, скажи что в sLink
PM MAIL   Вверх
CodeMonkey
Дата 28.9.2010, 00:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



Цитата(Snowy @  27.9.2010,  18:09 Найти цитируемый пост)
Там как раз возникают проблемы, при попытке открыть урл, где есть национальные символы.


Где тут национальные символы?

http://ru.wikipedia.org/wiki/%D0%97%D0%B0%...%B8%D1%86%D0%B0


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Xenag
Дата 28.9.2010, 00:25 (ссылка) |  (голосов:3) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Awaiting Authorisation
Сообщений: 51
Регистрация: 6.3.2010

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



Какбы вот: Заглавная_страница

Добавлено через 3 минуты и 20 секунд
Не все браузеры урлэнкодят. Большинство современных браузеров глотают урлы в естественном виде.

Добавлено через 4 минуты и 7 секунд
ЗЫ. президент.рф
PM   Вверх
Keeper89
Дата 28.9.2010, 10:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Цитата(CodeMonkey @  27.9.2010,  15:54 Найти цитируемый пост)
Не ври ;)

Я уже давно исправился smile


--------------------
PM MAIL WWW   Вверх
Akella
Дата 29.9.2010, 10:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

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



Код

ShellExecute(0, nil, pChar(Edit1.Text), nil, nil, SW_SHOWNORMAL);

В Edit1.text находится значение http://президент.рф/
Откомпилировал в D2010.
Запускал в Windows 7 и в Windows XP. На обоих ОС код срабатывает и браузер отображает сайт.
Что я делаю не так?
PM MAIL   Вверх
Snowy
Дата 29.9.2010, 11:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Я же написал, что может работать не так, а не будет.
На одной машине всё так, на другой всё не так.
От чего зависит - я так и не разобрался.
В своих исследованиях расковырял всю ShellExecute.
Она мне не понравилась, решил заюзать ShellExecuteEx напрямую.
Проблема пропала.
Я просто делюсь граблями, на которые наступал...
PM MAIL   Вверх
klyaksa
Дата 29.9.2010, 14:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



В sLink ничего криминального национального, там 'http://mytest.klyaksa.net' + номер версии ПО.

Сегодня проверил там где не работает: ShellExecute возвращает код ошибки 
  { The system cannot write to the specified device. }
  ERROR_WRITE_FAULT = 29;
  {$EXTERNALSYM ERROR_WRITE_FAULT}

PM MAIL   Вверх
Akella
Дата 29.9.2010, 14:41 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

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



Цитата(klyaksa @  29.9.2010,  14:16 Найти цитируемый пост)
The system cannot write to the specified device

http://www.microsoft.com/communities/newsg...amp;m=1&p=1

Добавлено через 3 минуты и 13 секунд
Цитата(klyaksa @  29.9.2010,  14:16 Найти цитируемый пост)
 { The system cannot write to the specified device. }
  ERROR_WRITE_FAULT = 29;

нашёл ещё ссылки на такую ошибку, но там вообще идёт речь о принтере

Добавлено через 5 минут и 44 секунды
klyaksa, попробуй так

Код

SetLastError(0);
ShellExecute(0, nil, pChar(sLink), nil, nil, SW_SHOWNORMAL);
ShowMessage(SysErrorMessage(GetLastError));

PM MAIL   Вверх
CodeMonkey
Дата 29.9.2010, 18:26 (ссылка) |  (голосов:3) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



Цитата(Akella @  29.9.2010,  15:41 Найти цитируемый пост)
klyaksa, попробуй так


Слушай, Akella, настоятельно рекомендую сюда больше не писать. Ты постоянно какой-то бред несёшь. Никакой GetLastError/RaiseLastOSError для ShellExecute не работает.

Цитата(http://msdn.microsoft.com/en-us/library/bb762153(VS.85).aspx)
If the function succeeds, it returns a value greater than 32. If the function fails, it returns an error value that indicates the cause of the failure:

Return code    Description
0 - The operating system is out of memory or resources.

ERROR_FILE_NOT_FOUND - The specified file was not found.
ERROR_PATH_NOT_FOUND - The specified path was not found.
ERROR_BAD_FORMAT - The .exe file is invalid (non-Win32 .exe or error in .exe image).
SE_ERR_ACCESSDENIED - The operating system denied access to the specified file.
SE_ERR_ASSOCINCOMPLETE - The file name association is incomplete or invalid.
SE_ERR_DDEBUSY - The DDE transaction could not be completed because other DDE transactions were being processed.
SE_ERR_DDEFAIL - The DDE transaction failed.
SE_ERR_DDETIMEOUT - The DDE transaction could not be completed because the request timed out.
SE_ERR_DLLNOTFOUND - The specified DLL was not found.
SE_ERR_FNF - The specified file was not found.
SE_ERR_NOASSOC - There is no application associated with the given file name extension. This error will also be returned if you attempt to print a file that is not printable.
SE_ERR_OOM - There was not enough memory to complete the operation.
SE_ERR_PNF - The specified path was not found.
SE_ERR_SHARE - A sharing violation occurred.


Хотите GetLastError - используйте ShellExecuteEx.

Цитата(klyaksa @  29.9.2010,  15:16 Найти цитируемый пост)
Сегодня проверил там где не работает: ShellExecute возвращает код ошибки 
  { The system cannot write to the specified device. }
  ERROR_WRITE_FAULT = 29;
  {$EXTERNALSYM ERROR_WRITE_FAULT}


И где же вы умудрились найти ERROR_WRITE_FAULT среди кодов ошибок из таблички выше?

Ещё раз: Пуск/Выполнить, ввести URL, нажать Enter - работать будет?

Ты меня слушай, я тут самые умные вещи говорю  smile 

Это сообщение отредактировал(а) CodeMonkey - 29.9.2010, 18:29


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
klyaksa
Дата 29.9.2010, 20:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Цитата(CodeMonkey @  29.9.2010,  18:26 Найти цитируемый пост)
И где же вы умудрились найти ERROR_WRITE_FAULT среди кодов ошибок из таблички выше?

Сейчас затрудняюсь с ответом. smile 
Но код ошибке был 29, значит по идее это 
  {$EXTERNALSYM SE_ERR_DDEFAIL}
  SE_ERR_DDEFAIL                  = 29;
Транзакция динамического обмена данными провалилась.
Только что это значит?

Ввести урл попробую завтра.

Это сообщение отредактировал(а) klyaksa - 29.9.2010, 20:34
PM MAIL   Вверх
Xenag
Дата 29.9.2010, 20:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Awaiting Authorisation
Сообщений: 51
Регистрация: 6.3.2010

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



SE_ERR_DDEFAIL означает, что программа для передачи параметров использует DDE.
И ваш вариант не прокатил, ибо что-то было неправильно сделано и параметр не был передан.
Вот уж раздули на 3 страницы.
Проблемы-то нет. Просто передается кривой параметр, который 7-ка по мудрости преобразовывает в нормальный, а ХР не умеет.
Дело не в коде, а в неправильной строке.
PM   Вверх
CodeMonkey
Дата 29.9.2010, 22:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



Цитата(klyaksa @  29.9.2010,  21:33 Найти цитируемый пост)
Но код ошибке был 29, значит по идее это 
  {$EXTERNALSYM SE_ERR_DDEFAIL}
  SE_ERR_DDEFAIL                  = 29;


Ничего это не значит. GetLastError не равно возвращаемому ShellExecute значению.


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
klyaksa
Дата 30.9.2010, 20:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Цитата(CodeMonkey @  29.9.2010,  22:35 Найти цитируемый пост)
Ничего это не значит. GetLastError не равно возвращаемому ShellExecute значению.

29 возвращает ShellExecute.

Дальше проблема не в дельфи. Ввел в строку запуска урл и получил окошко Ошибка при направлении команды приложению.

п.с. а в чем дело с компом? 
PM MAIL   Вверх
CodeMonkey
Дата 1.10.2010, 11:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



Цитата(klyaksa @  30.9.2010,  21:12 Найти цитируемый пост)
Дальше проблема не в дельфи. Ввел в строку запуска урл и получил окошко Ошибка при направлении команды приложению.


Обратите внимание, как вы могли бы получить этот результат пять дней назад:

Цитата(CodeMonkey @  25.9.2010,  23:46 Найти цитируемый пост)
Пуск/выполнить, ввести ссылку - будет работать? Возможно, проблема просто в нарушенных ассоциациях. 


 smile 

Цитата(klyaksa @  30.9.2010,  21:12 Найти цитируемый пост)
п.с. а в чем дело с компом?  


Ну если

Цитата(klyaksa @  30.9.2010,  21:12 Найти цитируемый пост)
29 возвращает ShellExecute.


то проблема - SE_ERR_DDEFAIL.

Означает это проблемы с файловыми ассоциациями. На той машине ссылка открывается с помощью DDE. И по какой-то причине это становится неудачным.

Можно попробовать ShellExecuteEx для получения более детализированного кода ошибки (через GetLastError) или же можно залезть в реестр и поискать проблему руками. А можно просто переустановить браузер, чтобы он починил свои ассоциации.


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Страницы: (3) [Все] 1 2 3 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




[ Время генерации скрипта: 0.1015 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.