buenas tengo una duda
estoy usando las funciones que vienen internas en vb
estoy con putmem1:

Private Declare Sub PutMem1 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Byte)

pues estaba haciendo unas pruebas usando copymemory y se me ocurrio esa funcion con cadenas pero noce si eso es posible ya que me da error este codigo:

Dim CADENA          As String
Dim dirCAD          As Long
Dim Valor           As String
 
CADENA = "ABCDEFGH"
Valor = "Z"
dirCAD = StrPtr(CADENA)
 
 
PutMem1 dirCAD + 1, StrPtr(Valor)
 

bueno me lanza error de desbordamiento y creo que es porque en el segundo parametro necesito escribir un valor de un byte y estoy intentando escribir 4 bytes y no encuntro la forma correcta de hacer lo que quiero
practicamente lo que quiero es insertar la "Z" en el lugar donde esta "B"

con copymemory se hace facil:
y lo logro hacer pero se me ocurrio usar esa funcion o noce si esa funcion solamente trabaja con numero ya que con valores numericos ya lo hice y funciono y queria usarla con cadenas

CopyMemory dirCAD + 2, StrPtr(Valor), 1
 

e probado pasando como segundo parametro el valor propio ( que eso es lo que pide el segundo parametro no? , no el puntero al valor) asi:

pero igual me lanza error de tipo y es logico
y tambien pense que era porque necesitaa dos bytes ( "Z" + "\0" )
y use putmem2 pero tampoco
bueno en si como se hace correctamente? o definitivamente esas funciones no trabajan con cadenas ?
gracias

Dos acalaraciones, primero los strings son unicode en memoria asi que strptr es el inicio y de ahi en mas la posicion es caracter * 2, el segundo parametro en este caso (asc("Z")) es el byte que vas a poner en la memoria.

@BlackZero
Entonces por esa regla de tres... ¿después de usar Copymemory() deberíamos usar GlobalUnlock() y GlobalFree()?

DoEvents!

Ook, muchas gracias, ahora entiendo...

DoEvents!

.
Revisa este codigo... te lo acabe de hacer solo para que veas como es una String Unicode en vb6...

En los primeros 4 bytes se almacen la longitud en BYTES de la cadena... despues se empiesan por poner los numeros en ascii de cada letra, separados por el ascii 0 o byte 0, y tengo entendido que la cadena termina con 2 bytes 0 en esto ultimo me puedo equivocar pero no lo creo ya que de lo contrario el api lstrlenW (corrijanme por favor ya que no recuerdo su nombre esactamente), no sabria hasta donde termina dicha cadena en Unicode...

El tipo de string es:  CWSTR

 
Option Explicit
 
Private Declare Sub PutMem4 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Long)
Private Declare Sub GetMem4 Lib "msvbvm60" (ByVal Addr As Long, ByVal RetVal As Long)
 
Private Sub Form_Load()
Dim bStrUnicode(17)     As Byte     '   //  4 bytes (Longitud), Num Caracteres * 2, 2 bytes 0
                                    '   //  (4 + (6*2) + 2) = 18 es decir 0 - 17 dimensiones...
Dim i                   As Long
Dim pStr                As String
Dim lpStrBack           As Long
 
    '   //  Primeros 4 bytes...
    PutMem4 ByVal VarPtr(bStrUnicode(0)), 12
    i = &H4
    '   //  Bytes de los caracteres + su separador...
    bStrUnicode(i) = Asc("M"): bStrUnicode(i + 1) = 0: i = i + &H2
    bStrUnicode(i) = Asc("i"): bStrUnicode(i + 1) = 0: i = i + &H2
    bStrUnicode(i) = Asc("g"): bStrUnicode(i + 1) = 0: i = i + &H2
    bStrUnicode(i) = Asc("u"): bStrUnicode(i + 1) = 0: i = i + &H2
    bStrUnicode(i) = Asc("e"): bStrUnicode(i + 1) = 0: i = i + &H2
    bStrUnicode(i) = Asc("l"): bStrUnicode(i + 1) = 0: i = i + &H2
    '   //  Ultimos 2 bytes infdican el final de la cadena Unicode...
    bStrUnicode(i) = 0: bStrUnicode(i + 1) = 0          '   //  Bytes a mi parecer Obligatorios... corrijanme
    
    pStr = "BlackZeroX"
    GetMem4 ByVal VarPtr(pStr), VarPtr(lpStrBack)       '   //  Repaldo del puntero al bloque...
    MsgBox pStr
    PutMem4 ByVal VarPtr(pStr), VarPtr(bStrUnicode(4))  '   //  Apuntamos al indice 4 de bStrUnicode
    MsgBox pStr
    PutMem4 ByVal VarPtr(pStr), lpStrBack               '   //  Restauramos... es obligatorio o causaria un crash...
    MsgBox pStr
 
End Sub
 
 

en pocas palabras la estructura de una string en vb6 seria algo asi... estrictamente en este orden.

 
Type CWStr
    lLn         As Long     '   // 12. Deben ser igual a la longitud en bytes de bData... (6 * 2)
    bData(11)   As Byte     '   // Miguel; Estas dimenciones dependen de la longitud de la cadena. en este caso es de longitud (6 * 2).
    iEnd        As Integer  '   // Se iguala a 0 para setear el termino de la cadena. integer = 2 bytes...
End Type
 
 

Temibles Lunas!¡.

gracias tio entendi la estructura de las cadenas muy buenos tus codigos aunq al veces me cuesta entenderlos pero los explicas bien
y pues segun que en cada caracter termina con un byte en 0 eso sucede porque el caracter es ascii no?
si fuera algun caracter unicode como una letra japonesa utilizara ese byte no? y el caracter ya no tuviera byte con un 0... ?



EDIT:
estaba incorrecto  

Gracias