Olá,
estou desenvolvendo um cgi que abra o word e substitua strings por informações do banco de dados.
Estou fazendo em delphi, meu servidor é microsoft e ele não abre o word. O script abaixo funciona sem as linhas que estão entre comentários.
Ajuda!
unit teste;
interface
uses
SysUtils, Classes, HTTPApp, windows, OleServer, Word2000, Variants;
type
TWebModule1 = class(TWebModule)
WordApplication1: TWordApplication;
procedure WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
implementation
{$R *.DFM}
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var ReturnString: string;
nome: olevariant;
no: olevariant;
begin
if Request.QueryFields.Values['rad']='first' then
ReturnString:='First Choice'
else ReturnString:='Second Choice';
copyfile(pchar('c:/a.doc'), pchar('c:/hu.doc'),true);
wordapplication1.Connect;
wordapplication1.Visible:=false;
nome:='c:/hu.doc';
no:=false;
//--------------------------------------
wordapplication1.Documents.OpenOld(nome, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam);
wordapplication1.Documents.Close(no, emptyparam, emptyparam);
wordapplication1.Quit;
//---------------------------------------
Response.Content:='<HTML>'+'<BODY>'+'Hi! <P>'+'You picked '+ReturnString+'!'+ '</BODY>'+ '</HTML>';
end;
end.
Ajuda Com Cgi!
Started By rage_against, 23/04/2004, 09:12
2 replies to this topic
#2
prix
-
- Usuários
-
- 562 posts
Duracell: E Duram, Duram, Duram...
- Sexo:Não informado
-
Interesses:keep walking ...
jonny walker
Posted 23/04/2004, 21:21
Não entendi bem o que vc deseja mas sei que vc quer um cgi que leia e altere ou adicione dados no word.
por acaso vc quer que alguem passe esse seu codigo para perl eh isso ?
por acaso vc quer que alguem passe esse seu codigo para perl eh isso ?
print join'',(reverse map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;
E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.
#3
3dmaniaco
-
- Usuários
-
- 19 posts
Novato no fórum
- Sexo:Não informado
Posted 23/04/2004, 22:25
Meu, é muito simples, tenta chamar o word, via connest, qualquer duvida fala comigo via icq 84336321
falows
falows
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
