TISS - MD5hash em Delphi




Doação

Blogger
O que você gostaria de ver nesta página? Envie sua sugestão.

TISS - MD5hash em Delphi

Função para gerar Hash nas mensagens XML do Padrão TISS da ANS

uses md5;

function LimpaXML(XML:String):String;
var
x:Integer;
lDeleta,lBranco : Boolean;
cXML : String;
begin
lDeleta := false;
lBranco := False;
cXML := '';
XML := trim(XML);
for x:=0 to Length(XML) do begin
if (XML[x] = #13) then continue
else if (XML[x] = #10) then continue
else if (XML[x] = #0 ) then continue
else if (XML[x] = '<') then begin
cXML := Trim(cXML);
if (XML[x+1] = '/') then lBranco := False else lBranco := true;
lDeleta := True
end
else if XML[x] = '>' then begin
if Copy(XML,x-4,5) <> 'hash>' then // vamos desconciderar o codigo hash do arquivo
lDeleta := False;
continue;
end;
if (lDeleta) then continue;
if (not lBranco) and (XML[x] = ' ') then continue;
cXML := cXML+XML[x];
end;
result := cXML;
end;


// http://www.fichtner.net/delphi/md5.delphi.phtml?download=md5.pas


Add Favorites / Bookmark
importar no delicious






Domínio Grátis!

Hospedagem de Páginas Grátis

Backup Online Grátis

HK-450 Metal Upgrade

Belt CP V2

EK1H-E014D BELT CP KIT

Blogs:

Poker Regras

Poker

cores html
webdesign
poker de graça
importar no delicious



Bookmark to:


TISS - MD5hash em Delphi

Função para gerar Hash nas mensagens XML do Padrão TISS da ANS






Aeromodelismo
Helicopter