Publish a Frontpage-Web

Author: Andreas Rumsch

uses comobj;

{....}

procedure TForm1.PublishTheWeb(dir, dest, un, pw: string);

{ dir:

// location of the local web to publish

// Ort des lokalen Webs, das veröffentlicht werden soll }

{ dest

// destination URL, where the web to publish

// URL, wo das Web veröffentlicht 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 veröffentlichende Web öffnen

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 veröffentlicht 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

// veröffentlichen

web.Publish(dest, FpPublishAddToExistingWeb, un, pw)

except

ShowMessage('Can''t load FrontPage.')

end;

end;