We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
4
3-
2
9 Comments
I don't now the MSProject98 com interface. But if you post some code here, perhaps I'll find a bug in your sources...
Regards, Madshi.
Regards, Madshi.
{Import the 'msprj8.olb' type library to compile}
type
TProject98 = class
private
FProject98: _MsProject;
constructor TProject98.Create;
begin
FProject98 := CoApplication_.Create;
end;
function TProject98.GetNumberOfTask
begin
{This Code crashes}
Result := FProject98.ActiveProject.T
end;
function TProject98.GetTasks: integer;
var
oTasks: Tasks;
begin
oTasks := FProject98.ActiveProject.T
Result := oTasks.Count; {This crashes too}
end;
type
TProject98 = class
private
FProject98: _MsProject;
constructor TProject98.Create;
begin
FProject98 := CoApplication_.Create;
end;
function TProject98.GetNumberOfTask
begin
{This Code crashes}
Result := FProject98.ActiveProject.T
end;
function TProject98.GetTasks: integer;
var
oTasks: Tasks;
begin
oTasks := FProject98.ActiveProject.T
Result := oTasks.Count; {This crashes too}
end;
{Import the 'msprj8.olb' type library to compile}
type
TProject98 = class
private
FProject98: _MsProject;
constructor TProject98.Create;
begin
FProject98 := CoApplication_.Create;
end;
function TProject98.GetNumberOfTask
begin
{This Code crashes}
Result := FProject98.ActiveProject.T
end;
function TProject98.GetTasks: integer;
var
oTasks: Tasks;
begin
oTasks := FProject98.ActiveProject.T
Result := oTasks.Count; {This crashes too}
end;
type
TProject98 = class
private
FProject98: _MsProject;
constructor TProject98.Create;
begin
FProject98 := CoApplication_.Create;
end;
function TProject98.GetNumberOfTask
begin
{This Code crashes}
Result := FProject98.ActiveProject.T
end;
function TProject98.GetTasks: integer;
var
oTasks: Tasks;
begin
oTasks := FProject98.ActiveProject.T
Result := oTasks.Count; {This crashes too}
end;
Hi Jerboa,
Had an evaluation version somewhere on my disk, so did the install to get to the typelib. If the code above is all you have so far then I will explain the errors.
crash 1 is because you have no Activeproject open
crash 2 same reason.
This will get you on your way
procedure TForm1.Button1Click(Sender
var
aProject: OleVariant;
CurrentTasks: Integer;
begin
aProject := CreateOleObject('MSProject
aProject.Visible := True;
try
aProject.FileNew;
CurrentTasks := aProject.ActiveProject.Num
Showmessage(IntToStr(Curre
except
aProject.Free;//project doesn't support free but the object will be released in case of trouble
end;
end;
But the beauty (and the trouble) is that all this MS stuff is going through OleVariants. So before you can acces the information you would like to see, you have to create an instance of the application and put it into an Olevariant.
Then you have to go through the object model of Project to acces what you want to have.
If you have any questions about this ask them.
br(UINT)je.
Had an evaluation version somewhere on my disk, so did the install to get to the typelib. If the code above is all you have so far then I will explain the errors.
crash 1 is because you have no Activeproject open
crash 2 same reason.
This will get you on your way
procedure TForm1.Button1Click(Sender
var
aProject: OleVariant;
CurrentTasks: Integer;
begin
aProject := CreateOleObject('MSProject
aProject.Visible := True;
try
aProject.FileNew;
CurrentTasks := aProject.ActiveProject.Num
Showmessage(IntToStr(Curre
except
aProject.Free;//project doesn't support free but the object will be released in case of trouble
end;
end;
But the beauty (and the trouble) is that all this MS stuff is going through OleVariants. So before you can acces the information you would like to see, you have to create an instance of the application and put it into an Olevariant.
Then you have to go through the object model of Project to acces what you want to have.
If you have any questions about this ask them.
br(UINT)je.
I had an active project open and the NumOfTasks property worked fine but I need to get the more detailed info that the Tasks interface provides. NumOfTasks is a property of the ActiveProject (works fine in my code too) but I need some code to access the names of each tasks (Name is a property of the Task interface), I get an error whenever I try to access any property of the Tasks interface:
procedure TProject98.GetTaskNames;
var
oTasks: Tasks;
FTasks: TStringList;
begin
FTasks := TStringlist.Create;
try
oTasks := FProject98.ActiveProject.T
for iCounter := 1 to FProject98.ActiveProject.N
FTasks.Lines.Add := oTasks.Item[iCounter].Name
code compiles but crashes at runtime}
finally
FTasks.Free;
end;
end;
procedure TProject98.GetTaskNames;
var
oTasks: Tasks;
FTasks: TStringList;
begin
FTasks := TStringlist.Create;
try
oTasks := FProject98.ActiveProject.T
for iCounter := 1 to FProject98.ActiveProject.N
FTasks.Lines.Add := oTasks.Item[iCounter].Name
code compiles but crashes at runtime}
finally
FTasks.Free;
end;
end;
Ok. fair enough if you have the olb look good at the structure because I think it's wonderfull stuff to use, made a project form1, button1, listbox1
unit Unit2;
interface
uses
Windows,
Messages,
SysUtils,
Classes,
Graphics,
Controls,
Forms,
Dialogs,
StdCtrls,
MSPROJECT_TLB,
ComObj;
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
procedure GetTaskNames(fProject: OleVariant);
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender
var
aProject: OleVariant;
begin
aProject := CreateActiveOleObject('MSP
aProject.Visible := True;
try
aProject.FileNew;
GetTaskNames(aProject);
except
aProject.Free; //project doesn't support free but the object will be released.
end;
end;
procedure TForm1.GetTaskNames(fProje
var
FTasks: TStringList;
iCounter: Integer;
begin
FTasks := TStringlist.Create;
try
for iCounter := 1 to FProject.ActiveProject.Num
FTasks.Add(FProject.Active
next;
end;
ListBox1.Items := FTasks;
finally
FTasks.Free;
end;
end;
end.
Hope this helps,
BTW Could make a sample that retrieves more then just the name ask for it and I can see what I can brew.
:O)
Bruintje.
unit Unit2;
interface
uses
Windows,
Messages,
SysUtils,
Classes,
Graphics,
Controls,
Forms,
Dialogs,
StdCtrls,
MSPROJECT_TLB,
ComObj;
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
procedure GetTaskNames(fProject: OleVariant);
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender
var
aProject: OleVariant;
begin
aProject := CreateActiveOleObject('MSP
aProject.Visible := True;
try
aProject.FileNew;
GetTaskNames(aProject);
except
aProject.Free; //project doesn't support free but the object will be released.
end;
end;
procedure TForm1.GetTaskNames(fProje
var
FTasks: TStringList;
iCounter: Integer;
begin
FTasks := TStringlist.Create;
try
for iCounter := 1 to FProject.ActiveProject.Num
FTasks.Add(FProject.Active
next;
end;
ListBox1.Items := FTasks;
finally
FTasks.Free;
end;
end;
end.
Hope this helps,
BTW Could make a sample that retrieves more then just the name ask for it and I can see what I can brew.
:O)
Bruintje.
Featured Post
New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
A lot of questions regard threads in Delphi. Â
One of the more specific questions is how to show progress of the thread. Â
Updating a progressbar from inside a thread is a mistake.
A solution to this would be to send a synchronized message to the…
Introduction
I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need.
This article will address some of the concepts when dealing with a multithreaded delphi database…
In this video you will find out how to export Office 365 mailboxes using the built in eDiscovery tool. Bear in mind that although this method might be useful in some cases, using PST files as Office 365 backup is troublesome in a long run (more on t…
In response to a need for security and privacy, and to continue fostering an environment members can turn to for support, solutions, and education, Experts Exchange has created anonymous question capabilities. This new feature is available to our Pr…
Suggested Courses
Course of the Month9 days, 4 hours left to enroll
721 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.