How to Publish a web site

Does anybody knows how to call from delphi (the send to option of the file explorer) the standard microsoft assistant for publication of web site?

are there some issues that I should know about ?

if yes any alternatives would be welcomed.

regards,

Marc
LVL 4
mhervaisAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

intheCommented:
hi,
never seen an example for working with web publishing wizard  but maybe you can use these:

http://www.cgiexpert.com/
(the freeware version)
and then see examples page:
http://www.cgiexpert.com/cgiexpert_examples.htm
(there are examples of uploading / downloading files etc..)

Regards Barry
0
mhervaisAuthor Commented:
Barry I have been looking rapidly the CGIExpert Site, but It seems that this site eis dedicateted to those who want to handle webservers with Delphi.

it is not my case. I have a standalone application that creates pages (lets call it "minifrontpage", and I wish to send those pages to web servers from witch less I know about their behaviour, more happy I will be.

I could basically use an FTP component (I already have a good one) but I said to myself, Why to recode everything if Krokosoft did gave already an assistant in windows.

So I looked at it and it seems that all I would have to do is to select my direcory, and issue a (sendto command (the one you get by right clicking on a file in the explorer)), and the assistant would do the rest...

but Howto do this sendto from Delphi ?

Of course if the solution would not be good because as usual krokosoft gives bad stuff... I'd be glad to know

regards, Marc

0
intheCommented:
ok,
think i got it (well this works anyway)

open the demo
delphi\demos\doc\filemanex and open the project in delphi.

add a popup menu to this project and make 1 menu item called "sendto" or whatever.

double click the menuitem click procedure and type:

executefile('C:\Program Files\Web Publish\WPWIZ.EXE',filelist.FileName,'',sw_normal);

(executefile is a function from this project and we can pass params to it like file names to publish)
..

move up the FMXWin.pas unit and find the filelist mousedown procedure and change it to :
procedure TFMForm.FileListMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
p : tpoint;
  begin
getcursorpos(p);
  if Button = mbLeft then begin
  with Sender as TFileListBox do
  begin
    if ItemAtPos(Point(X, Y), True) >= 0 then
      BeginDrag(False);
  end;
  end
  else if button = mbright   then begin
  popupmenu1.Popup(p.x,p.y);
  end;
end;

now compile and run and select a file with left mouse and right click ..viola ..publish file thingy .

is that ok ?
i'll look back in morning for comment see ya
Regards Barry
0
Microsoft Azure 2017

Azure has a changed a lot since it was originally introduce by adding new services and features. Do you know everything you need to about Azure? This course will teach you about the Azure App Service, monitoring and application insights, DevOps, and Team Services.

mhervaisAuthor Commented:
Lokks Good Barry. I'l try it tomorrow (it is already 3 AM here)

Regards,

Marc
0
IndefreiCommented:
Hi, viola .. :o)
0
mhervaisAuthor Commented:
???? indefrei
0
intheCommented:
hi
 Ie Friend :-)
0
mhervaisAuthor Commented:
now I'm lost
0
intheCommented:
Hi Marc,
what did you think of example?

Regards Barry

btw
ignore indefrei he had too much to eat and drink at christmas and forgot my name :-)    
 Viola Indeed  LOL
0
mhervaisAuthor Commented:
I'l have a close look in a few hours Barry.
maybe you should put him on diet
:=)
0
intheCommented:
            hello :-)
0
mhervaisAuthor Commented:
Hi Barry, I know that I did not takte he time to look at your answer, and I apalogize.

But really I had no time yet. I'am working more than 16h/day and I askes this question in advace among my Other priorities.


The only thing I tell you is that the number of tasks I have to carry out before I do it are reducing

Sorry again. I keep you informed

Regards, Marc
0
intheCommented:
ok ;-)
0
mhervaisAuthor Commented:
sorry I made you wait so long Barry.

As soon as I could put my head out of my first priorities I went to look at your answer.

It Just works great.

Please collect your points. And thanks

regards,

Marc
0
intheCommented:
thanks
no problem waiting i also am very busy at the moment .
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
mhervaisAuthor Commented:
here you are.

Thanks again Barry
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.