Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
![:-\](https://forum.elhacker.net/Smileys/navidad/undecided.gif ":-\")
CitarEn registrar, se debe incluir los ocx, dll y archivos tlb para registrarlos en el sistema. y también desde esta solapa se pueden incluir archivos de fuentes , y otra opción para registra las extensiones de archivo para el programa
):CitarCrashea porque los artículos VarVariantDest de 4, 5, 6 y 7 contienen los punteros a los datos exactamente la misma cadena que está contenido por la AAA.
Al final del procedimiento Test_Translate, cuando se limpia las cosas, dicen que primero destruye aaa y todas las cadenas contenidas en él. A continuación se limpia VarVariantDest - pero contiene punteros a las cadenas que ya han sido destruidos. Resultado final: usted obtiene un accidente.
En este caso es mucho mejor usar la antigua forma para copiar el contenido de la matriz, especialmente si usted no está tratando de lograr la eliminación de los elementos de la matriz original y simplemente colocando el directamente en la matriz de otros.
Citar¿No sabe cómo está familiarizado con el almacenamiento de cadenas / referencias. Una cadena almacenada dentro de nada: matriz variante, o, simplemente, una variable de cadena en realidad no contienen los datos de cadena. Los datos de cadena se almacena en otra parte de la memoria.
variable de cadena: la variable contiene una cadena de bytes puntero del 4 al carácter primero de los datos de la cadena
matriz de cadenas dinámica: la matriz se compone de 4 entradas de bytes. Cada entrada de la matriz es un puntero de cadena
variante: los datos dentro de la variante es un puntero de cadena
Cada vez que un puntero de cadena se copia con CopyMemory, va a copiar el puntero, no la cadena. Cuando una cadena se copia con VB (es decir, newString oldString =), una nueva cadena se crea y cada variable tiene un puntero distinto. Si un puntero se duplica con cada vez CopyMemory, una copia de ese puntero debe ser llevado a cero otra cosa que obtener accidentes. Como Merri explicó esto se debe a VB limpia las cuerdas y que está tratando de limpiar la misma cadena dos veces. La primera vez que está bien, la memoria por segunda vez ya no se asigna y se bloquea la aplicación.
Mira esto: http://www.codeguru.com/vb/gen/vb_misc/algorithms/article.php/c7495
http://www.vbforums.com/showthread.php?p=3870342#post3870342
Cita de: Karcrack en 24 Agosto 2010, 11:20 AMJajajajajajaj
Antes de ponerme a codear nada... Tu lo que quieres hacer es establecer un nuevo Array tipo Variant en el que el primer valor sea aaa?
MOD:Código [Seleccionar]http://www.vbforums.com/showthread.php?t=625615
regsvr32 /s *.dll
regsvr32 /s *.ocx
(* * * * * * * * * * * * * * * * * * * * * * * * * *)
(* Function : Text_Beetwen_Words *)
(* Author : *PsYkE1* *)
(* Mail : vbpsyke1@mixmail.com *)
(* Date : 24/8/10 *)
(* Purpose : Returns text which is beetwen *)
(* two words. *)
(* Visit : http://foro.rthacker.net/ *)
(* * * * * * * * * * * * * * * * * * * * * * * * * *)
function InStr(iStart: integer; sText: string; sWord: string): integer;
begin
Result := Pos(sWord,Copy(sText,iStart,Length(sText) - (iStart - 1)));
end;
function Text_Beetwen_Words(sTextToAnalyze:String ; sStartWord:String ; sEndWord:string): String;
var
iPosition1 : Integer;
iPosition2 : Integer;
iStart : Integer;
begin
iPosition1 := Instr(1,sTextToAnalyze,sStartWord);
if iPosition1 > 0 then
begin
iStart := (iPosition1 + Length(sStartWord));
iPosition2 := Instr(iStart,sTextToAnalyze,sEndWord);
end
else
exit;
if iPosition2 > 0 then
Result := Copy(sTextToAnalyze,iStart,iPosition2 -1);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
(* añade un textbox *)
edit1.Text:= text_beetwen_words('Hoy estoy muy aburrido','Hoy ',' aburrido');
end;
end.Citarestoy muy