Как передать функции пользовательский тип?

[0xy]

Есть функция записи данных в файл:

Код: Выделить всё

Function Write2File(Data, FileName$) As Boolean

Есть необходимость передавать ей переменные с типами, описаными пользователем. К какому типу следует отнести Data, чтобы избежать несоответствия типов? Variant не катит (и не должон), а Any для внутрених процедур не допускается.

ЗЫ
Кстати, а что такое Any?

[GSerg]

К какому типу следует отнести Data

К тому самому типу, описанному пользователем.

[Nicky]

К какому типу следует отнести Data

К тому самому типу, описанному пользователем.

Так юзертипы нельзя вроде?

OVERPOST: Мммда?... откуда тогда я взял, что нельзя?...

[vvs_adm]

Так юзертипы нельзя вроде?

P.S.: за имена ногами не бейте (особенно fnew ), нужно срочно бежать

[0xy]

К тому самому типу, описанному пользователем.

Да эт понятно, но накой такое нужно? Ведь функция задумывалась как универсальная (т.е. для записи любых типов, в т.ч. стандартных).

[GSerg]

И каким же образом функция будет записывать тип, который она не знает?

[Lumen]

Тогда используй any. Как раз для записи любых типов.

[tyomitch]

Any для внутрених процедур не допускается.

[0xy]

Может как-то можно сварганить ссылку на (ранее описаный) тип непосредственно перед вызовом функции?

[GSerg]

As long, и передавать varptr.

[0xy]

As long, и передавать varptr.

А пример можно? А то у меня в доке нету varptr
Типа так:

Код: Выделить всё

Dim Data As UserType, DataLink&
DataLink=VarPtr(Data)
Write2File(DataLink,"FileName")
..........................
Function Write2File(DataLink&, FileName$) As Boolean
' НУ И ЧЕГО ТЕПЕРЬ ДЕЛАТЬ С ЭТИМ DataLink
End Function

[BV]

Теперь MoveMemory в структуру из адреса...

[0xy]

MoveMemory в структуру из адреса...

В смысле RtlMoveMemory? Так опять же, длину нужно знать

PS
Наверное проще десяток процедур написать, под каждый тип

[tyomitch]

0xy, а каким чудом твоя процедура сможет обработать структуру, если она не знает не то что её смысл, но даже её длину?
Как ты себе это представляешь?

[Хакер]

Код: Выделить всё


Dim Data As UserType, DataLink&
DataLink=VarPtr(Data)

Write2File(DataLink, LenB(Data), "FileName")
..........................
Function Write2File(DataLink&, DataLengh&, FileName$) As Boolean
Dim aData() As Byte
Dim hFile    As Long
Redim aData(0 To DataLengh  - 1)
CopyMemory aData(0), ByVal DataLink&, DataLengh&
hFile = FreeFile
Open FileName$ For Binary as #hFile
Put #hFile, ,aData
Close #hFile
End Function


[0xy]

0xy, а каким чудом твоя процедура сможет обработать структуру, если она не знает не то что её смысл, но даже её длину?
Как ты себе это представляешь?

Ну, длина "закодирована" в юзертайпе Get ее видит, а вот Len--нет
А предлагаеный способ передачи структуры процедуре предполагает указание ее длины.

Кстати, в Access 97 VarPtr ВРЁТ! Со всеми вытекающими Это нормально, или только у меня?

[Хакер]

А предлагаеный способ передачи структуры процедуре предполагает указание ее длины.

А в чём сложность определения длины? И протестил и у меня всё работает.