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