Ian Branch

23 hours ago, David Schwartz said:

if Pos(CDS1DOCNO.AsString, DocNos) = 0) then ...

Seems to have a redundant ')' after the =0..

Thank you all for your inputs.  Appreciated.

In the short term I have gone with Angus' Magenta component.

Having said that I am interested in learning how to call/use the winapi stuff.

Is there a guide somewhere?  I have looked at the MS information and it is like reading a different language.

Regards & TIA,

Ian

Angus - Tks, d/load requested.

Stephane - French, Spanish, same difference to me. I don't understand it. 🙂

Ian

Hi Team,

Does anybody know of an English version of GLibWMI?

I'm afraid my French, or whatever language it is, is not all that good.  i.e. non existant.

Also, I don't think English Users would appreciate non-english prompts. 😉

Alternatively, is there another Library that provides similar functionality?

I'm really only after the ability to stop/start windows services.

Regards & TIA,

Ian

Tks Remy,

As I said, just curious.

Regards,

Ian

No pressure, just asking..

When might Indy 11 surface??

Regards & TIA,

Ian

D11.2 - I don't get the error message but Delphi falls over.. 😞

Tks Mark-

Hi Team,

What is the cleanest/safest way to close an Application during Main Form Creation?

I tried just Close; but it keeps going. 😞

Regards & TIA,

Ian

Tks, all good now.

Attempting to build rev 3943 under D11.2.

Get the following..

Regards,

Ian

Hi Stano,

Doesn't that assume that the field is Null if empty?

Ian

Hi team,

Given a database table field   statement..

MyTable.Fieldbyname('MyField').AsString

What is the best/most efficient way to test if it is empty or NULL??

IsNullOrEmpty(MyTable.Fieldbyname('MyField').AsString)

But Delphi didn't like it.

Regards & TIA,

Ian

Didn't even realize there was such a thing as a 'Premium Update Subscription'. 😞

I suspect it does, it has a later version #.

Maybe I will look at it once I get this little exercise over.

OK.  I downloaded and had a look at the Lazarus implementation.

I also had a look at various Lazarus/Delphi conversion guides.

As I have the original almost working now I don't think I want to tackle the Lazarus/Delphi conversion.

No, I wasn't aware.  Is there much involved in porting Lazarus/FreePascal to Delphi??

If I ever get it working.. 🙂

I changed 

TVpDependentInfo(DependentList.List^[I]).Component

to 

TVpDependentInfo(DependentList.Items[I]).Component

and it seems to like it.

We'll see.

Next issue..

Hi Guys,

OK, got a pile of little issues sorted.

Got this error..

"[dcc32 Error] VpBaseDS.pas(1232): E2017 Pointer type required"

For this..

procedure TVpControlLink.ReleaseDependents;
var
  I : Integer;
begin
  for I := 0 to pred(DependentList.Count) do
    Detach(TVpDependentInfo(DependentList.List^[I]).Component);
end;

With the cursor sitting between the ^ and [.

I suspect this is a Delphi language change issue.

There are a number of these 

TVpDependentInfo(DependentList.List^[I]).Component

related errors.

TVDependantInfo is declared as..

  TVpDependentInfo = class { Used by the ControlLink component }
  protected{private}
    FComponent: Pointer;
    FEventHandler: TVpControlNotifyEvent;
  public
    property Component: Pointer read FComponent write FComponent;
    property EventHandler: TVpControlNotifyEvent
      read FEventHandler write FEventHandler;
  end;

  DependentList is a TList.

Ian

OK.  Tks.  That sorted it.

Not used to the idea of diving in to the core classes.

All OK there Tks.

Moving on to the next error.  I should be able to resolve this one. 🙂 

[dcc32 Error] VpXBase.pas(655): E2008 Incompatible types

The procedure is derived from this..

  {The TVpMemoryStream class is used to expose TMemoryStream's SetPointer
   method.}
  TVpMemoryStream = class(TMemoryStream)
  public
    procedure SetPointer(Ptr : Pointer; Size : Longint);
  end;

I didn't want to get into the innards if it has already been sorted.

Having said that, I am trying to build and install the .bpl under D11.2.

I get an incompatible types error here..

{==TVpMemoryStream===================================================}
procedure TVpMemoryStream.SetPointer(Ptr : Pointer; Size : Integer);
begin
  Assert(not Assigned(Memory)); inherited;		<<<
end;

I don't know/understand enough to know what to do here.

Ian

Hi Team,

Has anybody brought TPVP into the 21st century? 😉

I have downloaded it from SF and am trying to get it loaded under D11.2.

Regards & TIA,

Ian

I got an email with a link.