Изучение основ FreeBasic в сравнении с PowerBasic

TYPE Persons
    Name AS STRING
    Surname AS STRING
    Age AS BYTE = 35
END TYPE
 
DIM Vpersons AS Persons
 
Vpersons.Name="Richard"
Vpersons.Surname="Black"
 
? Vpersons.Name
? Vpersons.Surname
? Vpersons.Age
Sleep

#COMPILE EXE
#DIM ALL
 
TYPE Persons
  Name AS STRING*10       'если здесь написать "Name AS STRING", компилятор бастует
  Surname AS STRING*10   'если здесь написать "Surname AS STRING", компилятор бастует
  Age AS BYTE           'значение по умолчанию здесь присвоить не получится
END TYPE
 
FUNCTION PBMAIN () AS LONG
DIM Vpersons AS Persons
 
  Vpersons.Name="Richard"
  Vpersons.Surname="Black"
  Vpersons.Age = 35
 
  ? Vpersons.Name
  ? Vpersons.Surname
  ? Vpersons.Age
 
  SLEEP 5000    'если SLEEP без указания продолжительности, компилятор бастует
END FUNCTION

#COMPILE DLL
#DIM ALL
 
#COM TLIB ON                      ' Generate a type library file
 
CLASS cls_AddOne GUID$("{5C9FFA61-D322-4E9F-9165-6E0ABD3BCB5D}") AS COM
  INTERFACE intrf_AddOne GUID$("{196EE916-64E2-4CE3-A1F9-E618BE50FDB9}")
    INHERIT Idispatch
 
    method mth_AddOne ALIAS "mth_AddOne" (byval X as long) as long
      METHOD = X + 1
    END METHOD
  END INTERFACE
END CLASS

#COMPILE EXE
#DIM ALL
 
' Generated by: PowerBASIC COM Browser v.2.00.0086
' Date & Time : 16.11.2022 at 15:12
' Options:
' Always use an Interface Prefix : Off
' Interface Prefix               : AddOne
' Prefix ProgIDs, ClassIDs...    : Off
' Use ANSI Strings               : On
' Use Singular Enumerations      : Off
' Generate Dispatch Interfaces   : On
' Include Parameter Names        : On
' Use Property Get/Set statements: On
' ------------------------------------------------
' Library Name: Com_Addone.dll
' Library File: D:\SSD_STOL\COM_AddOne\Com_Addone.tlb
' Description : COM Library
' GUID : {4F582608-BEDA-40AB-B263-D7B8F5DC7800}
' LCID : 0
' Version : 1.0
 
' Class Identifiers
$CLSID_CLS_ADDONE = GUID$("{5C9FFA61-D322-4E9F-9165-6E0ABD3BCB5D}")
 
' Interface Identifiers
$IID_INTRF_ADDONE = GUID$("{196EE916-64E2-4CE3-A1F9-E618BE50FDB9}")
 
' Interface Name  : INTRF_ADDONE
' Description     : INTRF_ADDONE is a dual interface with VTable/Dispatch access.
' Class Name      : CLS_ADDONE
' ClassID         : $CLSID_CLS_ADDONE
 
Interface IDBind INTRF_ADDONE
    Member Call mth_AddOne <257> (In X As Long<0>) As Long
End Interface
 
FUNCTION PBMAIN () AS LONG
  local obj_INTRF_ADDONE AS IDISPATCH
  obj_INTRF_ADDONE = NEWCOM CLSID $CLSID_CLS_ADDONE
 
  if not ISOBJECT(obj_INTRF_ADDONE) then
       msgbox "Ошибка! Объект не создан!"
       end
  end if
END FUNCTION

#include once "windows.bi"
#include once "win\ole2.bi"
#include once "win\oaidl.bi"
 
Type IAddone As IAddone_
 
Type IAddoneVtbl
    QueryInterface As Function(ByVal this As IAddone Ptr, ByVal riid As Const IID Const Ptr, ByVal ppvObject As any Ptr Ptr) As HRESULT
    AddRef As Function(ByVal this As IAddone Ptr) As ULONG
    Release As Function(ByVal this As IAddone Ptr) As ULONG
    GetTypeInfoCount As Function(ByVal this As IAddone Ptr, ByVal pctinfo As UINT Ptr) As HRESULT
    GetTypeInfo As Function(ByVal this As IAddone Ptr, ByVal iTInfo As UINT, ByVal lcid As LCID, ByVal ppTInfo As ITypeInfo Ptr Ptr) As HRESULT
    GetIDsOfNames As Function(ByVal this As IAddone Ptr, ByVal riid As Const IID Const Ptr, ByVal rgszNames As LPOLESTR Ptr, ByVal cNames As UINT, ByVal lcid As LCID, ByVal rgDispId As DISPID Ptr) As HRESULT
    Invoke As Function(ByVal this As IAddone Ptr, ByVal dispIdMember As DISPID, ByVal riid As Const IID Const Ptr, ByVal lcid As LCID, ByVal wFlags As WORD, ByVal pDispParams As DISPPARAMS Ptr, ByVal pVarResult As VARIANT Ptr, ByVal pExcepInfo As EXCEPINFO Ptr, ByVal puArgErr As UINT Ptr) As HRESULT
    Addone As Function(ByVal this As IAddone Ptr, ByVal X As Long, ByVal pResult As Long Ptr)As HRESULT
end type
 
Type IAddone_
    lpVtbl As IAddoneVtbl Ptr
End Type
 
Dim Shared CLSID_ADDONE As CLSID = Type(&h5C9FFA61, &hD322, &h4E9F, _
    {&h91, &h65, &h6E, &h0A, &hBD, &h3B, &hCB, &h5D} _
)
Dim Shared IID_IAddone As IID = Type(&h196EE916, &h64E2, &h4CE3, _
    {&hA1, &hF9, &hE6, &h18, &hBE, &h50, &hFD, &hB9} _
)
 
Dim hrCoInitialize As HRESULT = CoInitialize(0)
If FAILED(hrCoInitialize) Then
    Print "Не могу инициализировать COM", Hex(hrCoInitialize)
    End(1)
End If
 
Dim pAddone As IAddone Ptr = Any
Dim hrCreate As HRESULT = CoCreateInstance( _
    @CLSID_ADDONE, _
    NULL, _
    CLSCTX_INPROC_SERVER, _
    @IID_IAddone, _
    @pAddone _
)
If FAILED(hrCreate) Then
    Print "Не могу создать объект", Hex(hrCreate)
    End(1)
End If
 
Dim Value As Long = 20
Dim Result As Long = Any
Dim hrAddOne As HRESULT = pAddone->lpVtbl->Addone(pAddone, Value, @Result)
If FAILED(hrAddOne) Then
    Print "Ошибка в функции IAddone_Addone", Hex(hrAddOne)
    End(1)
End If
 
Print "Результат IAddone_Addone", Result
 
pAddone->lpVtbl->Release(pAddone)