Обработка настраиваемых протоколов URL в настольных приложениях на Delphi и Pascal

Delphi , Интернет и Сети , URL

При работе с настольными приложениями на Delphi и Pascal может возникнуть потребность в обработке настраиваемых протоколов URL. Например, при получении ссылки на встречу в Zoom, вы можете захотеть открыть эту встречу в настольном приложении. В этой статье мы рассмотрим, как обработать настраиваемые протоколы URL в настольных приложениях на Delphi и Pascal.

Для начала, давайте разберемся, что такое настраиваемый протокол URL. Настраиваемый протокол URL - это протокол, который не входит в стандартный набор протоколов, таких как HTTP, HTTPS, FTP и так далее. Например, протокол "zoom" может быть использован для открытия встречи в приложении Zoom.

Для обработки настраиваемых протоколов URL в настольных приложениях на Delphi и Pascal нам понадобится зарегистрировать наше приложение как обработчик этого протокола. Это делается с помощью ключей реестра.

Давайте рассмотрим пример кода на Object Pascal (Delphi), который регистрирует наше приложение как обработчик настраиваемого протокола URL:

function RegisterURLProtocol(
    const ProtocolID: String;
    const ProtocolName: String;
    const DefaultIcon: String;
    const OpenCommand: String): Boolean;
var
    Reg: TRegistry;
begin
    Result := FALSE;
    Reg := TRegistry.Create(KEY_WRITE);
    try
        Reg.RootKey := HKEY_CLASSES_ROOT;
        if not Reg.OpenKey(ProtocolID, TRUE) then
            Exit;

        Reg.WriteString('', 'URL:' + ProtocolName);
        Reg.WriteString('URL Protocol', '');
        if Reg.OpenKey('DefaultIcon', True) then begin
            Reg.WriteString('', DefaultIcon);
        end;
        Reg.CloseKey;

        if not Reg.OpenKey(ProtocolID + '\shell\open\command', True) then
            Exit;

        Reg.WriteString('', OpenCommand);
        Result := TRUE;
    finally
        FreeAndNil(Reg);
    end;
end;

В этом коде мы создаем экземпляр класса TRegistry и открываем ключ реестра, соответствующий настраиваемому протоколу URL. Затем мы записываем значение "URL:" + ProtocolName в ключ реестра ProtocolID. Далее мы открываем ключ реестра "DefaultIcon" и записываем в него значение DefaultIcon. После этого мы открываем ключ реестра ProtocolID + '\shell\open\command' и записываем в него значение OpenCommand.

Теперь, когда наше приложение зарегистрировано как обработчик настраиваемого протокола URL, мы можем обработать ссылку, полученную в нашем приложении. Для этого нам понадобится использовать компонент TWebBrowser или аналогичный, который позволяет работать с веб-страницами.

Давайте рассмотрим пример кода на Object Pascal (Delphi), который обрабатывает настраиваемый протокол URL в настольном приложении:

procedure TForm1.WebBrowser1_NewWindow(ASendWnd: HWND; ASendMsg: LongInt; ASendWParam: LongInt; ASendLParam: LongInt; var Vpt: LongInt);
begin
    if ASendMsg = WM_COMMAND then
    begin
        if ASendWParam = IDM_NEW_WINDOW then
        begin
            // Обработка настраиваемого протокола URL
            if Pos('zoom:', ASendLParam) > 0 then
            begin
                // Получить ссылку на встречу из параметров протокола
                var zoomLink: string = Copy(ASendLParam, Pos('zoom:', ASendLParam) + 4, Length(ASendLParam) - Pos('zoom:', ASendLParam));
                // Открыть встречу в приложении Zoom
                ShellExecute(0, 'open', zoomLink, nil, nil, SW_SHOWNORMAL);
            end;
        end;
    end;
end;

В этом коде мы перехватываем сообщение WM_COMMAND от компонента TWebBrowser, которое отправляется, когда пользователь нажимает на ссылку в веб-странице. Если параметр ASendWParam равен IDM_NEW_WINDOW, это означает, что пользователь нажал на ссылку, которая использует настраиваемый протокол URL. В нашем случае это протокол "zoom".

Если параметр ASendLParam содержит строку "zoom:", мы извлекаем ссылку на встречу из параметров протокола и открываем ее в приложении Zoom с помощью функции ShellExecute.

В заключение, обработка настраиваемых протоколов URL в настольных приложениях на Delphi и Pascal может быть полезной функцией, если вам нужно открывать ссылки в вашем приложении. Для этого вам понадобится зарегистрировать ваше приложение как обработчик настраиваемого протокола URL с помощью ключей реестра и перехватить сообщения от компонента TWebBrowser.

Создано по материалам из источника по ссылке.

Статья описывает процесс обработки настраиваемых протоколов URL в настольных приложениях на Delphi и Pascal, с примерами кода на Object Pascal, для регистрации приложения как обработчика протокола и для обработки ссылок в приложении.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: URL ::