Ejemplo de Diucl (UclDecompres)

[jangel_ramirezm]

Hola primero que nada gracias por tomarse el tiempo de ver este hilo

lo que pasa es que tengo una aplicación que debe exportar datos en un archivo encriptado por razones de seguridad .
eso ya lo hace; el problema es en que la aplicación que recibe esos datos (por cualqueir medio) al usar ucldecomprees pierde los datos contenidos en el archivo. Aqui el Ejemplo de como Encripto.



Código Delphi [-]
procedure TFrmExportarDatos.btnencriptarClick(Sender: TObject);
var lista: TStringList;
qry:Tquery;
nombrearchivo:string;
begin
lista:=TStringList.Create;
qry:=Tquery.Create(nil);
qry.DatabaseName:=Database1.DatabaseName ;
qry.sql.Text:='SELECT * FROM bi_libros';
qry.open;
DataSetProvider1.DataSet:=qry;
ClientDataSet1.Open;
nombrearchivo:='c:\PRUEBA2';
ClientDataSet1.SaveToFile(nombrearchivo+'.xml' , dfXML);
lista := TStringList.Create;
lista.LoadFromFile(nombrearchivo+'.xml');
lista.Text := UclCompressStrW(lista.Text);
lista.SaveToFile(nombrearchivo+'.ENC');
ClientDataSet1.Close;
qry.Close;
qry.Destroy;
DeleteFile(nombrearchivo+'.xml') ;
lista.Destroy;
end;[/delphi]


y este es como desencripto


Código Delphi [-]
procedure TFrmExportarDatos.btndesencriptarClick(Sender: TObject);
var lista:TStringList;
muestra:String ;
begin
lista:=TStringList.Create ;
muestra:= UclDecompressStrW ('c:\PRUEBA2.ENC');;
lista.Text := muestra;
lista.SaveToFile('c:\prueba2.xml');
DeleteFile('c:\prueba2.ENC');
lista.Destroy;
end;[/delphi]







si alguien pudiera ayudar se lo agradeceria mucho ya he buscado mucho por los foros y no he encontrado algo . Gracias