Конференция VBStreets

**0xy** » 19.06.2006 (Пн) 13:58

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

Код: Выделить всё: Function Write2File(Data, FileName$) As Boolean

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

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

**GSerg** » 19.06.2006 (Пн) 14:02

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

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

**Nicky** » 19.06.2006 (Пн) 14:37

GSerg писал(а):
К какому типу следует отнести Data

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

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

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

**vvs_adm** » 19.06.2006 (Пн) 14:49

Nicky писал(а):Так юзертипы нельзя вроде?

P.S.: за имена ногами не бейте (особенно fnew :oops:

), нужно срочно бежать

**0xy** » 20.06.2006 (Вт) 2:50

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

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

**GSerg** » 20.06.2006 (Вт) 2:53

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

**Lumen** » 20.06.2006 (Вт) 2:53

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

**tyomitch** » 20.06.2006 (Вт) 2:58

0xy писал(а):Any для внутрених процедур не допускается.

**0xy** » 20.06.2006 (Вт) 3:03

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

**GSerg** » 20.06.2006 (Вт) 3:10

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

**0xy** » 20.06.2006 (Вт) 21:30

GSerg писал(а):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 » 20.06.2006 (Вт) 22:33

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

**0xy** » 20.06.2006 (Вт) 23:32

BV писал(а):MoveMemory в структуру из адреса...

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

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

**tyomitch** » 20.06.2006 (Вт) 23:47

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

**Хакер** » 21.06.2006 (Ср) 1:33

Код: Выделить всё: 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** » 21.06.2006 (Ср) 21:26

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

Ну, длина "закодирована" в юзертайпе

Get ее видит, а вот Len--нет

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

Кстати, в Access 97 VarPtr ВРЁТ! Со всеми вытекающими

Это нормально, или только у меня?

**Хакер** » 21.06.2006 (Ср) 21:37

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

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

Конференция VBStreets

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

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

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

Кто сейчас на конференции