Публикация во FrontPageDelphi , Интернет и Сети , ИнтернетПубликация во FrontPage
Оформил: DeeCo 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; Статья Публикация во FrontPage раздела Интернет и Сети Интернет может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |