Публикация во FrontPage

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses comobj;

 {....}

 procedure TForm1.PublishTheWeb(dir, dest, un, pw: string);
 { dir: 
    // location of the local web to publish 
    // Ort des lokalen Webs, das veroffentlicht werden soll }

 { dest 
    // destination URL, where the web to publish 
    // URL, wo das Web veroffentlicht werden soll}
 { un 
    // username 
    // Benutzername }
 { pw 
    // password 
    // Kennwort }
 const
    FpPublishNone = 0;
   FpPublishIncremental = 1;
   FpPublishAddToExistingWeb = 2;
   FpPublishCopySubwebs = 4;
 var
    fp: OLEVariant;
   web: OLEVariant;
 begin
   try
     // create an instance of frontpage 
    // eine Instanz von Frontpage erzeugen 
    fp := CreateOleObject('Frontpage.Application');

     // open the web to publish 
    // das zu veroffentlichende Web offnen 
    web := fp.Webs.Open(dir);

     // before the web can be published, you should open an Internet connection 
    // using rasdial.exe 
    // see Delphi-Tip "...establish a connection to the internet ?" 
    // or you set your Internetoptions to connect automatically to the Internet 

    // Bevor das Web veroffentlicht werden kann, sollte eine Internetverbindung 
    // aufgebaut werden 
    // siehe Delphi-Tip "...eine Internetverbindung aufbauen ?" 
    // oder die Internetoptionen sind so gesetzt, dass eine Verbindung automatisch 
    // aufgebaut wird 

    { open the Internet-connection}

     // publish it 
    // veroffentlichen 
    web.Publish(dest, FpPublishAddToExistingWeb, un, pw)
   except
     ShowMessage('Can''t load FrontPage.')
   end;
 end;

Привет! Я переведу текст на русский язык.

Это процедура Delphi, называемая PublishTheWeb, которая использует объект COM Frontpage для публикации локального веб-сайта на удаленном сервере. Процедура принимает четыре параметра типа строка: dir, dest, un и pw. Эти параметры представляют:

• dir: расположение локального веб-сайта, который нужно опубликовать.
• dest: URL-адрес назначения, где должен быть опубликован веб-сайт.
• un: имя пользователя для аутентификации.
• pw: пароль для аутентификации.

Процедура использует блок try-except для обработки ошибок, которые могут возникнуть во время процесса публикации. Если возникает ошибка, она отображает сообщение с текстом "Can't load FrontPage".

Схема работы кода следующая:

1. Создается экземпляр приложения Frontpage с помощью CreateOleObject.
2. Открывается локальный веб-сайт для публикации с помощью fp.Webs.Open.
3. Опубликован веб-сайт на удаленном сервере, указанном в параметре dest, с помощью web.Publish. Константа FpPublishAddToExistingWeb specifies that the web should be added to an existing web at the destination URL.
4. Если возникнут ошибки во время процесса публикации, она поймает исключение и отобразит сообщение с текстом ошибки.

Обратите внимание:

• Код предполагает, что приложение Frontpage установлено и настроено на системе.
• Код использует rasdial.exe для установления интернет-соединения перед публикацией веб-сайта. Это шаг может быть опциональным в зависимости от настроек пользовательского интернета.
• Код не обрабатывает конкретные ошибки или исключения, которые могут возникнуть во время процесса публикации. Он просто поймает общее исключение и отобразит сообщение с текстом ошибки.

Альтернативное решение может быть использовать более современный и надежный библиотеку для взаимодействия с Frontpage,such as the FrontPage component in Delphi's built-in Vcl.Forms unit. This component provides a more streamlined way of working with Frontpage without requiring COM objects or manual error handling.

В статье описывается функция публикации веб-сайта в Microsoft FrontPage с помощью Delphi, которая позволяет открыть локальный веб-сайт, создать экземпляр приложения FrontPage и publish его на указанную URL.

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

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

:: Главная :: Интернет ::