As Cloud technologies come of age, business leaders grapple with the impact it has on their team's skills and the gap associated with the use of a cloud platform.
Join experts from 451 Research and Concerto Cloud Services on July 27th where we will examine fact and fiction.
Course Of The Month
Become a Premium Member and unlock a new, free course in leading technologies each month.
[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;
![[Live Webinar] The Cloud Skills Gap](https://filedb.experts-exchange.com/files/public/2017/5/29/3249c5dc-214e-4f8f-afab-ef354630e19f.png)
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
Want to be a web developer? You'll need to know HTML. Prepare for HTML5 certification by enrolling in July's Course of the Month! It's free for Premium Members, Team Accounts, and Qualified Experts.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Objective:
- This article will help user in how to convert their numeric value become words.
How to use
1. You can copy this code in your Unit as function
2. than you can perform your function by type this code
The Code
(CODE)
The Im…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work. Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
There's a multitude of different network monitoring solutions out there, and you're probably wondering what makes NetCrunch so special.
It's completely agentless, but does let you create an agent, if you desire.
It offers powerful scalability …
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers.
Hopes this gives you ideas on visualizing your data in new ways ~
Create a calculated field in a query:
…
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month6 days, 3 hours left to enroll
Earn Certification
CompTIA IT Fundamentals
$49.00$44.10
626 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.