(939)  Anmelden

Deutsch
Wünsche und Anregungen

Vorschläge für künftige Versionen

 
Unterthema: ENUM  [...]  erzeugt.
 
09.01.2015  ▲
 



 
- Seite 4 -


Ah, super.

Vielleicht könntest Du - auch damit die Rubik "Includes" Deines Profiles  [...]  stimmt -

Die Include samt PH bei den Includes  [...]  posten?

Ich glaube da fände sie die meiste Beachtung wenn jemand sowas finden möchte.
 
15.10.2014  ▲
 




H.Brill
.ph + .inc konnte ich ja automatisch einmalig generieren.
Include sieht jetzt so aus :
KompilierenMarkierenSeparieren
 $I MemoryModule.inc
Declare Handle hResInfo, hModule
Declare Memory FN, LV
Declare Int anz, String Func
Declare pfunc&
hResInfo = Res("Info", %HInstance, 10, "listview", 0)

IF hResInfo > 0

    Dim LV, Res("size", %HInstance, hResInfo)
    LV = Res("Get", %HInstance, hResInfo)
    hModule = LoadLibraryM(LV)

ELSE

    MessageBox("Konnte Modul nicht laden...", "Fehler", 0)

EndIf

IF hModule > 0

    Var Handle __ASortListviewproc  = GetProcAddressM(hModule, "ASortListview")
    Var Handle __ASortListviewExproc  = GetProcAddressM(hModule, "ASortListviewEx")
    Var Handle __AddItemValuesproc  = GetProcAddressM(hModule, "AddItemValues")
    Var Handle __AreCheckboxesPresentproc  = GetProcAddressM(hModule, "AreCheckboxesPresent")
    Var Handle __AreIconsPresentproc  = GetProcAddressM(hModule, "AreIconsPresent")
    Var Handle __BuildListviewproc  = GetProcAddressM(hModule, "BuildListview")
    Var Handle __CheckIfMarkedproc  = GetProcAddressM(hModule, "CheckIfMarked")
    Var Handle __ClearListviewproc  = GetProcAddressM(hModule, "ClearListview")
    Var Handle __CloseMessagesproc  = GetProcAddressM(hModule, "CloseMessages")
    Var Handle __ConvertDatasproc  = GetProcAddressM(hModule, "ConvertDatas")
    Var Handle __CopyColumnToproc  = GetProcAddressM(hModule, "CopyColumnTo")
    Var Handle __CopyLineToproc  = GetProcAddressM(hModule, "CopyLineTo")
    Var Handle __CreateImageListproc  = GetProcAddressM(hModule, "CreateImageList")
    Var Handle __CreateListviewproc  = GetProcAddressM(hModule, "CreateListview")
    Var Handle __CryptMemproc  = GetProcAddressM(hModule, "CryptMem")
    Var Handle __CsvToHeaderproc  = GetProcAddressM(hModule, "CsvToHeader")
    Var Handle __CsvToListviewproc  = GetProcAddressM(hModule, "CsvToListview")
    Var Handle __DbfToCsvproc  = GetProcAddressM(hModule, "DbfToCsv")
    Var Handle __DeleteAllItemsproc  = GetProcAddressM(hModule, "DeleteAllItems")
    Var Handle __DeleteColumnproc  = GetProcAddressM(hModule, "DeleteColumn")
    Var Handle __DeleteDoubleItemsproc  = GetProcAddressM(hModule, "DeleteDoubleItems")
    Var Handle __DeleteItemproc  = GetProcAddressM(hModule, "DeleteItem")
    Var Handle __DeleteSpaceLinesproc  = GetProcAddressM(hModule, "DeleteSpaceLines")
    Var Handle __EditManualproc  = GetProcAddressM(hModule, "EditManual")
    Var Handle __EnableDragDropproc  = GetProcAddressM(hModule, "EnableDragDrop")
    Var Handle __EnableEditsproc  = GetProcAddressM(hModule, "EnableEdits")
    Var Handle __EraseListviewproc  = GetProcAddressM(hModule, "EraseListview")
    Var Handle __ExamineColumnproc  = GetProcAddressM(hModule, "ExamineColumn")
    Var Handle __ExchangeBytesproc  = GetProcAddressM(hModule, "ExchangeBytes")
    Var Handle __ExchangeSeparatorproc  = GetProcAddressM(hModule, "ExchangeSeparator")
    Var Handle __FilelistToCsvproc  = GetProcAddressM(hModule, "FilelistToCsv")
    Var Handle __ForbidScrollMessageproc  = GetProcAddressM(hModule, "ForbidScrollMessage")
    Var Handle __GetAllCheckboxStatesproc  = GetProcAddressM(hModule, "GetAllCheckboxStates")
    Var Handle __GetAllSelectedproc  = GetProcAddressM(hModule, "GetAllSelected")
    Var Handle __GetCheckboxStateproc  = GetProcAddressM(hModule, "GetCheckboxState")
    Var Handle __GetCheckedproc  = GetProcAddressM(hModule, "GetChecked")
    Var Handle __GetColumnNameproc  = GetProcAddressM(hModule, "GetColumnName")
    Var Handle __GetColumnUpdateproc  = GetProcAddressM(hModule, "GetColumnUpdate")
    Var Handle __GetColumnWidthproc  = GetProcAddressM(hModule, "GetColumnWidth")
    Var Handle __GetColumnsproc  = GetProcAddressM(hModule, "GetColumns")
    Var Handle __GetControlParasproc  = GetProcAddressM(hModule, "GetControlParas")
    Var Handle __GetDllVersionproc  = GetProcAddressM(hModule, "GetDllVersion")
    Var Handle __GetDragDropParasproc  = GetProcAddressM(hModule, "GetDragDropParas")
    Var Handle __GetEdgeFloatsproc  = GetProcAddressM(hModule, "GetEdgeFloats")
    Var Handle __GetEdgeIntegersproc  = GetProcAddressM(hModule, "GetEdgeIntegers")
    Var Handle __GetFloatproc  = GetProcAddressM(hModule, "GetFloat")
    Var Handle __GetIconproc  = GetProcAddressM(hModule, "GetIcon")
    Var Handle __GetIndexproc  = GetProcAddressM(hModule, "GetIndex")
    Var Handle __GetItemStateproc  = GetProcAddressM(hModule, "GetItemState")
    Var Handle __GetItemTextproc  = GetProcAddressM(hModule, "GetItemText")
    Var Handle __GetItemTextExproc  = GetProcAddressM(hModule, "GetItemTextEx")
    Var Handle __GetItemTextsAsFloatproc  = GetProcAddressM(hModule, "GetItemTextsAsFloat")
    Var Handle __GetItemTextsAsIntegerproc  = GetProcAddressM(hModule, "GetItemTextsAsInteger")
    Var Handle __GetLastKeyproc  = GetProcAddressM(hModule, "GetLastKey")
    Var Handle __GetLineTextproc  = GetProcAddressM(hModule, "GetLineText")
    Var Handle __GetLinesproc  = GetProcAddressM(hModule, "GetLines")
    Var Handle __GetNeededMemoryproc  = GetProcAddressM(hModule, "GetNeededMemory")
    Var Handle __GetNullOffsetproc  = GetProcAddressM(hModule, "GetNullOffset")
    Var Handle __GetOwnControlParasproc  = GetProcAddressM(hModule, "GetOwnControlParas")
    Var Handle __GetRealColumnIndexproc  = GetProcAddressM(hModule, "GetRealColumnIndex")
    Var Handle __GetSelectedproc  = GetProcAddressM(hModule, "GetSelected")
    Var Handle __GetSelectedCountproc  = GetProcAddressM(hModule, "GetSelectedCount")
    Var Handle __GetSelectedDbClkproc  = GetProcAddressM(hModule, "GetSelectedDbClk")
    Var Handle __GetSelectedLineproc  = GetProcAddressM(hModule, "GetSelectedLine")
    Var Handle __GetTabOffsetsproc  = GetProcAddressM(hModule, "GetTabOffsets")
    Var Handle __GetVarproc  = GetProcAddressM(hModule, "GetVar")
    Var Handle __GetVisibleColumnsproc  = GetProcAddressM(hModule, "GetVisibleColumns")
    Var Handle __GetVisibleLinesproc  = GetProcAddressM(hModule, "GetVisibleLines")
    Var Handle __HeaderToCsvproc  = GetProcAddressM(hModule, "HeaderToCsv")
    Var Handle __IColumnproc  = GetProcAddressM(hModule, "IColumn")
    Var Handle __InitMessagesproc  = GetProcAddressM(hModule, "InitMessages")
    Var Handle __ListviewToCsvproc  = GetProcAddressM(hModule, "ListviewToCsv")
    Var Handle __ListviewToDbfproc  = GetProcAddressM(hModule, "ListviewToDbf")
    Var Handle __ListviewToRawproc  = GetProcAddressM(hModule, "ListviewToRaw")
    Var Handle __MarkIfCheckedproc  = GetProcAddressM(hModule, "MarkIfChecked")
    Var Handle __MixRGBsproc  = GetProcAddressM(hModule, "MixRGBs")
    Var Handle __PrepareTxtToCsvproc  = GetProcAddressM(hModule, "PrepareTxtToCsv")
    Var Handle __PrintColumnsproc  = GetProcAddressM(hModule, "PrintColumns")
    Var Handle __PrintListviewproc  = GetProcAddressM(hModule, "PrintListview")
    Var Handle __RaiseColumnsproc  = GetProcAddressM(hModule, "RaiseColumns")
    Var Handle __RaiseLineproc  = GetProcAddressM(hModule, "RaiseLine")
    Var Handle __RawToListviewproc  = GetProcAddressM(hModule, "RawToListview")
    Var Handle __ReadFileQuickproc  = GetProcAddressM(hModule, "ReadFileQuick")
    Var Handle __Registerproc  = GetProcAddressM(hModule, "Register")
    Var Handle __SItemproc  = GetProcAddressM(hModule, "SItem")
    Var Handle __SearchBlankItemproc  = GetProcAddressM(hModule, "SearchBlankItem")
    Var Handle __SearchTextproc  = GetProcAddressM(hModule, "SearchText")
    Var Handle __SelectColumnEditsproc  = GetProcAddressM(hModule, "SelectColumnEdits")
    Var Handle __SelectLineproc  = GetProcAddressM(hModule, "SelectLine")
    Var Handle __SetAllCheckboxStatesproc  = GetProcAddressM(hModule, "SetAllCheckboxStates")
    Var Handle __SetBackImageproc  = GetProcAddressM(hModule, "SetBackImage")
    Var Handle __SetCheckboxStateproc  = GetProcAddressM(hModule, "SetCheckboxState")
    Var Handle __SetColumnAlignmentproc  = GetProcAddressM(hModule, "SetColumnAlignment")
    Var Handle __SetColumnNameproc  = GetProcAddressM(hModule, "SetColumnName")
    Var Handle __SetColumnSortproc  = GetProcAddressM(hModule, "SetColumnSort")
    Var Handle __SetColumnUpdateproc  = GetProcAddressM(hModule, "SetColumnUpdate")
    Var Handle __SetColumnWidthproc  = GetProcAddressM(hModule, "SetColumnWidth")
    Var Handle __SetColumnsWidthLimitsproc  = GetProcAddressM(hModule, "SetColumnsWidthLimits")
    Var Handle __SetFilelistFilterproc  = GetProcAddressM(hModule, "SetFilelistFilter")
    Var Handle __SetFilelistNoFilterproc  = GetProcAddressM(hModule, "SetFilelistNoFilter")
    Var Handle __SetIconproc  = GetProcAddressM(hModule, "SetIcon")
    Var Handle __SetIconColumnproc  = GetProcAddressM(hModule, "SetIconColumn")
    Var Handle __SetIconModeproc  = GetProcAddressM(hModule, "SetIconMode")
    Var Handle __SetIconsFromMemproc  = GetProcAddressM(hModule, "SetIconsFromMem")
    Var Handle __SetIconsWithproc  = GetProcAddressM(hModule, "SetIconsWith")
    Var Handle __SetImageListproc  = GetProcAddressM(hModule, "SetImageList")
    Var Handle __SetIndexproc  = GetProcAddressM(hModule, "SetIndex")
    Var Handle __SetItemTextproc  = GetProcAddressM(hModule, "SetItemText")
    Var Handle __SetItemTextExproc  = GetProcAddressM(hModule, "SetItemTextEx")
    Var Handle __SetLineHeightproc  = GetProcAddressM(hModule, "SetLineHeight")
    Var Handle __SetLineNumbersproc  = GetProcAddressM(hModule, "SetLineNumbers")
    Var Handle __SetListviewStyleproc  = GetProcAddressM(hModule, "SetListviewStyle")
    Var Handle __SetPrintAttributesproc  = GetProcAddressM(hModule, "SetPrintAttributes")
    Var Handle __SetVarproc  = GetProcAddressM(hModule, "SetVar")
    Var Handle __ShowListviewproc  = GetProcAddressM(hModule, "ShowListview")
    Var Handle __SortManualproc  = GetProcAddressM(hModule, "SortManual")
    Var Handle __SwapLinesproc  = GetProcAddressM(hModule, "SwapLines")
    Var Handle __UpdateListviewproc  = GetProcAddressM(hModule, "UpdateListview")

ENDIF

.ph - Datei :
KompilierenMarkierenSeparieren
ASortListview( = CALL(__ASortListviewproc,;
ASortListviewEx( = CALL(__ASortListviewExproc,;
AddItemValues( = CALL(__AddItemValuesproc,;
AreCheckboxesPresent( = CALL(__AreCheckboxesPresentproc,;
AreIconsPresent( = CALL(__AreIconsPresentproc,;
BuildListview( = CALL(__BuildListviewproc,;
CheckIfMarked( = CALL(__CheckIfMarkedproc,;
ClearListview( = CALL(__ClearListviewproc,;
CloseMessages( = CALL(__CloseMessagesproc,;
ConvertDatas( = CALL(__ConvertDatasproc,;
CopyColumnTo( = CALL(__CopyColumnToproc,;
CopyLineTo( = CALL(__CopyLineToproc,;
CreateImageList( = CALL(__CreateImageListproc,;
CreateListview( = CALL(__CreateListviewproc,;
CryptMem( = CALL(__CryptMemproc,;
CsvToHeader( = CALL(__CsvToHeaderproc,;
CsvToListview( = CALL(__CsvToListviewproc,;
DbfToCsv( = CALL(__DbfToCsvproc,;
DeleteAllItems( = CALL(__DeleteAllItemsproc,;
DeleteColumn( = CALL(__DeleteColumnproc,;
DeleteDoubleItems( = CALL(__DeleteDoubleItemsproc,;
DeleteItem( = CALL(__DeleteItemproc,;
DeleteSpaceLines( = CALL(__DeleteSpaceLinesproc,;
EditManual( = CALL(__EditManualproc,;
EnableDragDrop( = CALL(__EnableDragDropproc,;
EnableEdits( = CALL(__EnableEditsproc,;
EraseListview( = CALL(__EraseListviewproc,;
ExamineColumn( = CALL(__ExamineColumnproc,;
ExchangeBytes( = CALL(__ExchangeBytesproc,;
ExchangeSeparator( = CALL(__ExchangeSeparatorproc,;
FilelistToCsv( = CALL(__FilelistToCsvproc,;
ForbidScrollMessage( = CALL(__ForbidScrollMessageproc,;
GetAllCheckboxStates( = CALL(__GetAllCheckboxStatesproc,;
GetAllSelected( = CALL(__GetAllSelectedproc,;
GetCheckboxState( = CALL(__GetCheckboxStateproc,;
GetChecked( = CALL(__GetCheckedproc,;
GetColumnName( = CALL(__GetColumnNameproc,;
GetColumnUpdate( = CALL(__GetColumnUpdateproc,;
GetColumnWidth( = CALL(__GetColumnWidthproc,;
GetColumns( = CALL(__GetColumnsproc,;
GetControlParas( = CALL(__GetControlParasproc,;
GetDllVersion( = CALL(__GetDllVersionproc,;
GetDragDropParas( = CALL(__GetDragDropParasproc,;
GetEdgeFloats( = CALL(__GetEdgeFloatsproc,;
GetEdgeIntegers( = CALL(__GetEdgeIntegersproc,;
GetFloat( = CALL(__GetFloatproc,;
GetIcon( = CALL(__GetIconproc,;
GetIndex( = CALL(__GetIndexproc,;
GetItemState( = CALL(__GetItemStateproc,;
GetItemText( = CALL(__GetItemTextproc,;
GetItemTextEx( = CALL(__GetItemTextExproc,;
GetItemTextsAsFloat( = CALL(__GetItemTextsAsFloatproc,;
GetItemTextsAsInteger( = CALL(__GetItemTextsAsIntegerproc,;
GetLastKey( = CALL(__GetLastKeyproc,;
GetLineText( = CALL(__GetLineTextproc,;
GetLines( = CALL(__GetLinesproc,;
GetNeededMemory( = CALL(__GetNeededMemoryproc,;
GetNullOffset( = CALL(__GetNullOffsetproc,;
GetOwnControlParas( = CALL(__GetOwnControlParasproc,;
GetRealColumnIndex( = CALL(__GetRealColumnIndexproc,;
GetSelected( = CALL(__GetSelectedproc,;
GetSelectedCount( = CALL(__GetSelectedCountproc,;
GetSelectedDbClk( = CALL(__GetSelectedDbClkproc,;
GetSelectedLine( = CALL(__GetSelectedLineproc,;
GetTabOffsets( = CALL(__GetTabOffsetsproc,;
GetVar( = CALL(__GetVarproc,;
GetVisibleColumns( = CALL(__GetVisibleColumnsproc,;
GetVisibleLines( = CALL(__GetVisibleLinesproc,;
HeaderToCsv( = CALL(__HeaderToCsvproc,;
IColumn( = CALL(__IColumnproc,;
InitMessages( = CALL(__InitMessagesproc,;
ListviewToCsv( = CALL(__ListviewToCsvproc,;
ListviewToDbf( = CALL(__ListviewToDbfproc,;
ListviewToRaw( = CALL(__ListviewToRawproc,;
MarkIfChecked( = CALL(__MarkIfCheckedproc,;
MixRGBs( = CALL(__MixRGBsproc,;
PrepareTxtToCsv( = CALL(__PrepareTxtToCsvproc,;
PrintColumns( = CALL(__PrintColumnsproc,;
PrintListview( = CALL(__PrintListviewproc,;
RaiseColumns( = CALL(__RaiseColumnsproc,;
RaiseLine( = CALL(__RaiseLineproc,;
RawToListview( = CALL(__RawToListviewproc,;
ReadFileQuick( = CALL(__ReadFileQuickproc,;
Register( = CALL(__Registerproc,;
SItem( = CALL(__SItemproc,;
SearchBlankItem( = CALL(__SearchBlankItemproc,;
SearchText( = CALL(__SearchTextproc,;
SelectColumnEdits( = CALL(__SelectColumnEditsproc,;
SelectLine( = CALL(__SelectLineproc,;
SetAllCheckboxStates( = CALL(__SetAllCheckboxStatesproc,;
SetBackImage( = CALL(__SetBackImageproc,;
SetCheckboxState( = CALL(__SetCheckboxStateproc,;
SetColumnAlignment( = CALL(__SetColumnAlignmentproc,;
SetColumnName( = CALL(__SetColumnNameproc,;
SetColumnSort( = CALL(__SetColumnSortproc,;
SetColumnUpdate( = CALL(__SetColumnUpdateproc,;
SetColumnWidth( = CALL(__SetColumnWidthproc,;
SetColumnsWidthLimits( = CALL(__SetColumnsWidthLimitsproc,;
SetFilelistFilter( = CALL(__SetFilelistFilterproc,;
SetFilelistNoFilter( = CALL(__SetFilelistNoFilterproc,;
SetIcon( = CALL(__SetIconproc,;
SetIconColumn( = CALL(__SetIconColumnproc,;
SetIconMode( = CALL(__SetIconModeproc,;
SetIconsFromMem( = CALL(__SetIconsFromMemproc,;
SetIconsWith( = CALL(__SetIconsWithproc,;
SetImageList( = CALL(__SetImageListproc,;
SetIndex( = CALL(__SetIndexproc,;
SetItemText( = CALL(__SetItemTextproc,;
SetItemTextEx( = CALL(__SetItemTextExproc,;
SetLineHeight( = CALL(__SetLineHeightproc,;
SetLineNumbers( = CALL(__SetLineNumbersproc,;
SetListviewStyle( = CALL(__SetListviewStyleproc,;
SetPrintAttributes( = CALL(__SetPrintAttributesproc,;
SetVar( = CALL(__SetVarproc,;
ShowListview( = CALL(__ShowListviewproc,;
SortManual( = CALL(__SortManualproc,;
SwapLines( = CALL(__SwapLinesproc,;
UpdateListview( = CALL(__UpdateListviewproc,;

Hauptprogramm :
KompilierenMarkierenSeparieren
 $H Listview.ph
 $I Listview.inc
Declare Handle gView
Declare String spalte
Window 600, 450
'Listview erstellen
gView = ~CreateListview(%HWnd, %HInstance, 0, $ffffff, -1, $31)
spalte = "1.Spalte"
~IColumn(gView, spalte, 120, 0)
spalte = "2. Spalte"
~IColumn(gView, spalte, 240, 0)
~ShowListview(gView, 10, 250, 400, 100)
Waitkey
FreeLibraryM(hModule)
Dispose FN, LV
End

So, scheint zu funktionieren.
Danke IF für die Unterstützung.
Die komplette .inc + .ph sind oben angehängt,
falls jemand sie braucht.
 
Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.
15.10.2014  ▲
 



Nicht ganz verstanden, Reihenfolge Einbindung INC & PH ist egal.

Die PH wir statisch einkompiliert - sie zur Laufzeit erzeugen macht keinen Sinn ausser einmal um sich selbst zu helfen eine PH zu erzeugen.

In der PH steht ja nur call(__1&, und in der INC wiederum da wird ja
erst __1& deklariert und mit dem Addr-Wert befüllt per "getProcAddr".
 
14.10.2014  ▲
 




H.Brill
Jetzt verstehe ich es.
Dann muß ich aber zuerst die .inc einbinden
und dann die .ph.

Wie sieht das bei der fertigen .Exe aus ?
Ich dachte, daß die .ph vom Compiler aufgelöst
wird, sprich die Werte ersetzt. Woher soll er denn
wissen, was für Adressen, die bei jedem Programmstart
von Memorymodule (bzw. Windows) neu gesetzt werden,
das sind ? Anscheinend hat sich da Roland in der Hilfe
falsch ausgedrückt.

Ich probiers morgen mal aus (muß um halb vier aufstehen).
Ansonsten speichere ich die DLL wie gehabt aus der Resource
mit BlockWrite auf Platte und rufe ImportDLL() auf.
Bei Programmende wird sie wieder gelöscht.
 
Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.
14.10.2014  ▲
 



Da hast Du 1 Schritt vergessen, ich schrieb ja:


dieAndereFunktion=getprocaddr(...,


Ergo mache doch einfach statt:

DeleteItem( = CALL(76852721,;


dies:

DeleteItem( = CALL(__deleteitemproc,;


und in der INC wiederum machst Du:

var handle __deleteitemproc=getProcAddr(...

Das meinte ich mit Du brauchst ne INC und ne PH.
 
14.10.2014  ▲
 




H.Brill
Die Listview.dll kannste ja bei Franks Seite laden.
Die hab ich einfach mit einem Resourcetool in die
Profan.exe als RCDATA eingefügt.
So sieht die .ph dann aus :
KompilierenMarkierenSeparieren
ASortListview( = CALL(76824682,;
ASortListviewEx( = CALL(76850266,;
AddItemValues( = CALL(76845879,;
AreCheckboxesPresent( = CALL(76843157,;
AreIconsPresent( = CALL(76843202,;
BuildListview( = CALL(76851016,;
CheckIfMarked( = CALL(76844826,;
ClearListview( = CALL(76851179,;
CloseMessages( = CALL(76829268,;
ConvertDatas( = CALL(76849693,;
CopyColumnTo( = CALL(76832168,;
CopyLineTo( = CALL(76832728,;
CreateImageList( = CALL(76827867,;
CreateListview( = CALL(76823966,;
CryptMem( = CALL(76829751,;
CsvToHeader( = CALL(76829313,;
CsvToListview( = CALL(76824848,;
DbfToCsv( = CALL(76829800,;
DeleteAllItems( = CALL(76852748,;
DeleteColumn( = CALL(76852694,;
DeleteDoubleItems( = CALL(76848284,;
DeleteItem( = CALL(76852721,;
DeleteSpaceLines( = CALL(76849472,;
EditManual( = CALL(76851474,;
EnableDragDrop( = CALL(76849360,;
EnableEdits( = CALL(76833567,;
EraseListview( = CALL(76843237,;
ExamineColumn( = CALL(76836784,;
ExchangeBytes( = CALL(76850011,;
ExchangeSeparator( = CALL(76832643,;
FilelistToCsv( = CALL(76834377,;
ForbidScrollMessage( = CALL(76849994,;
GetAllCheckboxStates( = CALL(76848805,;
GetAllSelected( = CALL(76827036,;
GetCheckboxState( = CALL(76833521,;
GetChecked( = CALL(76833341,;
GetColumnName( = CALL(76847162,;
GetColumnUpdate( = CALL(76837063,;
GetColumnWidth( = CALL(76829241,;
GetColumns( = CALL(76826022,;
GetControlParas( = CALL(76843468,;
GetDllVersion( = CALL(76848987,;
GetDragDropParas( = CALL(76849642,;
GetEdgeFloats( = CALL(76848061,;
GetEdgeIntegers( = CALL(76847736,;
GetFloat( = CALL(76848033,;
GetIcon( = CALL(76847326,;
GetIndex( = CALL(76832628,;
GetItemState( = CALL(76852774,;
GetItemText( = CALL(76836699,;
GetItemTextEx( = CALL(76850933,;
GetItemTextsAsFloat( = CALL(76847809,;
GetItemTextsAsInteger( = CALL(76847524,;
GetLastKey( = CALL(76850318,;
GetLineText( = CALL(76829016,;
GetLines( = CALL(76825996,;
GetNeededMemory( = CALL(76826063,;
GetNullOffset( = CALL(76827351,;
GetOwnControlParas( = CALL(76844156,;
GetRealColumnIndex( = CALL(76844739,;
GetSelected( = CALL(76825912,;
GetSelectedCount( = CALL(76852668,;
GetSelectedDbClk( = CALL(76825752,;
GetSelectedLine( = CALL(76828950,;
GetTabOffsets( = CALL(76825836,;
GetVar( = CALL(76845234,;
GetVisibleColumns( = CALL(76852273,;
GetVisibleLines( = CALL(76852454,;
HeaderToCsv( = CALL(76852856,;
IColumn( = CALL(76824285,;
InitMessages( = CALL(76823917,;
ListviewToCsv( = CALL(76827461,;
ListviewToDbf( = CALL(76831194,;
ListviewToRaw( = CALL(76850433,;
MarkIfChecked( = CALL(76845488,;
MixRGBs( = CALL(76837636,;
PrepareTxtToCsv( = CALL(76848758,;
PrintColumns( = CALL(76847456,;
PrintListview( = CALL(76843143,;
RaiseColumns( = CALL(76837420,;
RaiseLine( = CALL(76846132,;
RawToListview( = CALL(76850652,;
ReadFileQuick( = CALL(76824772,;
Register( = CALL(76828996,;
SItem( = CALL(76824408,;
SearchBlankItem( = CALL(76853071,;
SearchText( = CALL(76830610,;
SelectColumnEdits( = CALL(76845004,;
SelectLine( = CALL(76830444,;
SetAllCheckboxStates( = CALL(76848907,;
SetBackImage( = CALL(76837774,;
SetCheckboxState( = CALL(76833424,;
SetColumnAlignment( = CALL(76848694,;
SetColumnName( = CALL(76847243,;
SetColumnSort( = CALL(76837000,;
SetColumnUpdate( = CALL(76837243,;
SetColumnWidth( = CALL(76852802,;
SetColumnsWidthLimits( = CALL(76850387,;
SetFilelistFilter( = CALL(76845683,;
SetFilelistNoFilter( = CALL(76845781,;
SetIcon( = CALL(76828634,;
SetIconColumn( = CALL(76847309,;
SetIconMode( = CALL(76845360,;
SetIconsFromMem( = CALL(76828727,;
SetIconsWith( = CALL(76828842,;
SetImageList( = CALL(76828607,;
SetIndex( = CALL(76828976,;
SetItemText( = CALL(76836621,;
SetItemTextEx( = CALL(76850857,;
SetLineHeight( = CALL(76850208,;
SetLineNumbers( = CALL(76848999,;
SetListviewStyle( = CALL(76844722,;
SetPrintAttributes( = CALL(76850142,;
SetVar( = CALL(76847404,;
ShowListview( = CALL(76824225,;
SortManual( = CALL(76833608,;
SwapLines( = CALL(76825389,;
UpdateListview( = CALL(76852830,;

Das kann man aber sowieso alles vergessen, weil sich bei jedem
Programmstart auch die Adressen ändern. Also hat man beim
fertigen exe-Programm keine Chance, da der Compiler ja nicht
mehr da ist, um die .ph aufzulösen.
 
Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.
14.10.2014  ▲
 



Georg Teles (14.10.14)
Das verstehe ich nicht ganz, die Funktionen haben ja verschiedene Anzahl von Parametern & die müssen ja berücksichtigt werden


Die Anzahl der P. ist der PH-Datei egal und wird ja durch den Aufruf selbst
festgelegt.

Es geht bei der PH-Datei in diesem Fall ja "nur" darum, aus:

meineFunction(...


dies zu machen:

call(somefunc12345&,...


@Heinz: Wie sieht die PH aus und hast Du mal die DLL?
 
14.10.2014  ▲
 




H.Brill
Ich hätte mir das jetzt so gedacht, daß ich die .ph
zuerst schreibe und dann mit $H einlese :
KompilierenMarkierenSeparieren
 $I MemoryModule.inc
Declare Handle hResInfo, hModule, Grid, gView
Declare Memory FN, LV
Declare Int anz, String Func, spalte
Declare pfunc&
Window 600, 450
Grid = @Create("Gridbox", %HWnd, "Nr;0;50;Adresse;0;100;Funktionsname;0;200", 0, 80, 10, 400, 200)
ShowWindow(Grid, 0)
hResInfo = Res("Info", %HInstance, 10, "listview", 0)

IF hResInfo > 0

    Dim LV, Res("size", %HInstance, hResInfo)
    LV = Res("Get", %HInstance, hResInfo)
    hModule = LoadLibraryM(LV)

EndIf

hResInfo = Res("Info", %HInstance, 10, "FUNKTIONEN", 0)

IF hResInfo > 0

    Dim FN, Res("size", %HInstance, hResInfo)
    FN = Res("Get", %HInstance, hResInfo)
    anz = Move("MemToList", FN, Chr$(13)+ chr$(10))
    Assign #1, $ProgDir + "INCLUDE\Listview.ph"
    Rewrite #1

    WHILELOOP 0, anz - 1

        Func = GetString$(0, &LOOP)
        'IMPORTFUNC(hModule, Func, "")  ' Geht hier nicht
        pFunc& = GetProcAddressM(hModule, Func)
        AddString(Grid, Str$(&LOOP) + "|" + Str$(pFunc&) + "|" + Func)
        Print #1, Func; "( = CALL(";Str$(pFunc&);",;"

    ENDWHILE

    Close #1

ENDIF

Print "Fertig..."
Waitkey
 $H Listview.ph
ShowWindow(Grid, 1)
' Listview erstellen
gView = ~CreateListview(%HWnd, %HInstance, 0, $ffffff, -1, $31)
spalte = "1.Spalte"
~IColumn(gView, spalte, 120, 0)
spalte = "2. Spalte"
~IColumn(gView, spalte, 240, 0)
~ShowListview(gView, 10, 250, 400, 100)
Waitkey
FreeLibraryM(hModule)
End

Aber irgendwie ist da noch der Wurm drin.
 
Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.
14.10.2014  ▲
 




H.Brill
Ich hätte mir das jetzt so gedacht, daß ich die .ph
zuerst schreibe und dann mit $H einlese :
KompilierenMarkierenSeparieren
 $I MemoryModule.inc
Declare Handle hResInfo, hModule, Grid, gView
Declare Memory FN, LV
Declare Int anz, String Func, spalte
Declare pfunc&
Window 600, 450
Grid = @Create("Gridbox", %HWnd, "Nr;0;50;Adresse;0;100;Funktionsname;0;200", 0, 80, 10, 400, 200)
ShowWindow(Grid, 0)
hResInfo = Res("Info", %HInstance, 10, "listview", 0)

IF hResInfo > 0

    Dim LV, Res("size", %HInstance, hResInfo)
    LV = Res("Get", %HInstance, hResInfo)
    hModule = LoadLibraryM(LV)

EndIf

hResInfo = Res("Info", %HInstance, 10, "FUNKTIONEN", 0)

IF hResInfo > 0

    Dim FN, Res("size", %HInstance, hResInfo)
    FN = Res("Get", %HInstance, hResInfo)
    anz = Move("MemToList", FN, Chr$(13)+ chr$(10))
    Assign #1, $ProgDir + "INCLUDE\Listview.ph"
    Rewrite #1

    WHILELOOP 0, anz - 1

        Func = GetString$(0, &LOOP)
        'IMPORTFUNC(hModule, Func, "")  ' Geht hier nicht
        pFunc& = GetProcAddressM(hModule, Func)
        AddString(Grid, Str$(&LOOP) + "|" + Str$(pFunc&) + "|" + Func)
        Print #1, Func; "( = CALL(";Str$(pFunc&);",;"

    ENDWHILE

    Close #1

ENDIF

Print "Fertig..."
Waitkey
 $H Listview.ph
ShowWindow(Grid, 1)
' Listview erstellen
gView = ~CreateListview(%HWnd, %HInstance, 0, $ffffff, -1, $31)
spalte = "1.Spalte"
~IColumn(gView, spalte, 120, 0)
spalte = "2. Spalte"
~IColumn(gView, spalte, 240, 0)
~ShowListview(gView, 10, 250, 400, 100)
Waitkey
FreeLibraryM(hModule)
End

Aber irgendwie ist da noch der Wurm drin.
 
Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.
14.10.2014  ▲
 




Georg
Teles
Das verstehe ich nicht ganz, die Funktionen haben ja verschiedene Anzahl von Parametern & die müssen ja berücksichtigt werden
 
XProfan X2
TC-Programming [...] 
XProfan 8.0 - 10.0 - X2 - X3 - X4

14.10.2014  ▲
 



Georg Teles (14.10.14)
Naja, es ist schon nervig 117 zu schreiben


Kannst ja per PH aus einem call(proc117,"test") einfach ein
foo("test") machen.
 
14.10.2014  ▲
 



◄►

Antworten


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

Ungelesen
Abonnieren
Merkliste
Hinweise
Gäste
Löschen
Ständig
Erledigt

35.386 Betrachtungen

Unbenanntvor 0 min.
Stringray09.05.2022
Rolf Koch03.10.2021
Axel Berse16.07.2021
Jörg Sellmeyer28.05.2020
Mehr...

Themeninformationen

Dieses Thema hat 8 Teilnehmer:

H.Brill (20x)
Michael W. (16x)
iF (7x)
Jörg Sellmeyer (5x)
ByteAttack (3x)
Georg Teles (3x)
Manfred Barei (1x)
Christof Neuß (1x)


Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Ich möchte keinen Cookie