Servers

OG PÅ DANSK

Det er godt nok til Delphi5 men er det samme i D6
http://www.djpate.freeserve.co.uk/D5Comps.htm

Kollade på dessa ex, men får de inte att fungera. Kan det bero på att jag använder Wor2000 och ex är till Word 97.

BGM

Man kan bare rette alt der hedder word97 til word2000, men her er et lille eksempel jeg har lavet:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Excel2000, Word2000, OleServer;

type
  TForm1 = class(TForm)
    Word1: TWordApplication;
    Word1Doc: TWordDocument;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Word1.Connect;
Word1.Visible:=True;
Word1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
Word1Doc.ConnectTo(Word1.ActiveDocument);
Word1Doc.Range.InsertBefore(Edit1.Text);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Word1Doc.Disconnect;
Word1.Disconnect;
end;

end.

Håber det hjalp.

Mycket intressant men jag eller Delpphi stupar på "EmptyParam" och jag hittar inte vad som äe fel.

BGM

Du skal have unit'en Variants i din Uses clause.

Tack för hjälpen.

BGM

Accepteret svar fra bgm
Point : 15
11/05-2002 22:18:46   

Tack för hjälpen.

BGM
-------------------------------
Nåh, ja. Man kan jo bare tage sine point selv.

Tja men jeg er glad jeg hjalp ham. :-)