🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: free.it.visual-basic
Article #1755

Puntatori a tutto (tranne che ale BStr, ovviamente)

#1755
From: Soviet_Mario
Date: Fri, 06 Feb 2004 13:11
29 lines
2033 bytes
ciao a tutti,
quale API squisitamente (o disgustosamente, secondo i gusti) windowsiana
potrei usare per ottenere un puntatore (valore di ritorno passato come Long
al rientro della chiamata) a qualsiasi cosa che non sia una stringa o una
reference ?

Nella disperazione avevo pensato di chiamare
lstrcpynA (versione ansi della routine di copia stringhe non
zero-terminated) in questo modo

declare function lstrcpynA lib "kernel32" (ByVal Dest As Any, ByVal Sorg As
Any, ByVal NumBytes As Long) As Long


AddressOfVar = lstrcpynA (Var, Var, 0&)

nel senso di copia zero byte da Sorg a Dest (sempre Var !) e ritornami il
puntatore a Var.

Premesso che ancora non ho testato (E che non funzionerebbe con le stringhe
Bstr), qualche anima pia ha un idea un po' meno evanescente e macchinosa di
come si potrebbe ottenere un indirizzo di memoria ?

Avevo sentito che qualche versione di VBA avesse VarPtr e StrPtr, ma non ne
ho vista traccia nīŋŊ in VB5 nīŋŊ in VB6 ..... morire che dessero seguito ad una
caratteristica utile !
Grazie in anticipo
Ciao
Soviet-Mario
Technical Details
Message-ID: <4oMUb.18898$U4.660813@twister1.libero.it>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!news.mailgate.org!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: ITALIAN,ASCII
X-Google-Thread: f94ee,d0645c4d52c710a2,start
X-Google-Attributes: gidf94ee,public
X-Google-ArrivalTime: 2004-02-06 05:11:29 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!news.mailgate.org!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mail
From: "Soviet_Mario" <gigiotopinto@libero.it>
Newsgroups: free.it.visual-basic
Subject: Puntatori a tutto (tranne che ale BStr, ovviamente)
Lines: 32
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Message-ID: <4oMUb.18898$U4.660813@twister1.libero.it>
Date: Fri, 06 Feb 2004 13:11:28 GMT
NNTP-Posting-Host: 151.25.197.216
X-Complaints-To: abuse@libero.it
X-Trace: twister1.libero.it 1076073088 151.25.197.216 (Fri, 06 Feb 2004 14:11:28 MET)
NNTP-Posting-Date: Fri, 06 Feb 2004 14:11:28 MET
Organization: [Infostrada]