pepelu
27-11-2006, 18:19:45
estoy desarrollando una dll desde delphi cuyas funciones deben ser llamadas desde C, C++.
Se trata de cambiar el contenido de un tipo de dato C desde mi funcion delphi
Mi codigo Delphi es el siguiente...
Function CambiaValor(Datos:Pchar):integer;stdcall
var
Bucle:Integer;
CadenaFinal:Array[0..100] of Char;
Caracter:char;
begin
StrPcopy(CadenaFinal,'Esta es la cadena con la que se va a rellenar...');
Cambiamos el contenido de Datos con los de la variable CadenaFinal
For Bucle := 0 to 100 do begin
Caracter := CadenaFinal[Bucle];
if Caracter = #0 then break; // Si es final de cadena, salimos
Datos[Bucle] := Caracter;
end;
Result := 1;
En Mi codigo C, defino la variable..
char *Cadena;
Si inicializo la variable con algun valor, antes de llamar la funcion por ejemplo si hago :
Cadena = " " y luego llamo a mi funcion CambiaValor(Cadena) , funciona perfectamente
pero si llamo a mi funcion sin inicializar la variable,, entondes peta...
La pregunta es ,, ¿Como puedo inicializar esta variable desde mi funcion delphi, con algun valor...
He probado con FillMemory, CopyMemory pero no me funciona o no lo estoy haciendo bien.....
Gracias y saludos
Se trata de cambiar el contenido de un tipo de dato C desde mi funcion delphi
Mi codigo Delphi es el siguiente...
Function CambiaValor(Datos:Pchar):integer;stdcall
var
Bucle:Integer;
CadenaFinal:Array[0..100] of Char;
Caracter:char;
begin
StrPcopy(CadenaFinal,'Esta es la cadena con la que se va a rellenar...');
Cambiamos el contenido de Datos con los de la variable CadenaFinal
For Bucle := 0 to 100 do begin
Caracter := CadenaFinal[Bucle];
if Caracter = #0 then break; // Si es final de cadena, salimos
Datos[Bucle] := Caracter;
end;
Result := 1;
En Mi codigo C, defino la variable..
char *Cadena;
Si inicializo la variable con algun valor, antes de llamar la funcion por ejemplo si hago :
Cadena = " " y luego llamo a mi funcion CambiaValor(Cadena) , funciona perfectamente
pero si llamo a mi funcion sin inicializar la variable,, entondes peta...
La pregunta es ,, ¿Como puedo inicializar esta variable desde mi funcion delphi, con algun valor...
He probado con FillMemory, CopyMemory pero no me funciona o no lo estoy haciendo bien.....
Gracias y saludos