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

Советы » Интернет » Публикация во FrontPage

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com