marianzo ha scritto:
Ciao +m2+
ho trovato il file jclmime.pas quale funzione utilizzi per convertire il contenuto di una riga?
Grazie Mille
Quella è la libreria per convertire file binari in mime per l'iniezione.
Da quanto "vagamente" posso intuire (o meglio, immaginare) devi porre attenzione ai caratteri "strani", che devono rimanere nella codifica più semplice possibile (la sto facendo breve)
const
arrayconversione:array [161..255] of Char= ('¡','¢','£','¤','¥','¦','§','¨','©','ª','«','¬','','®','¯','°','±','²','³','´','ì','¶','·','¸','¹','º','»','¼','½','¾','¿','À','Á','Â','Ã','Ä','Å','Æ','Ç','È','É','Ê','Ë','Ì','Í','Î','Ï','Ð','Ñ','Ò','Ó','Ô','Õ','Ö','×','Ø','Ù','Ú','Û','Ü','Ý','Þ','ß','à','á','â','ã','ä','å','æ','ç','è','é','ê','ë','ì','í','î','ï','ð','ñ','ò','ó','ô','õ','ö','÷','ø','ù','ú','û','ü','ý','þ','ÿ');
function g_testoafel(i_stringa:string):string;
var
i:Integer;
begin
Result:=i_stringa;
if i_stringa='' then Exit;
for i:=Low(arrayconversione) to High(arrayconversione) do
Result:=StringReplace(result,arrayconversione[i],'&#'+inttostr(i)+';',[rfreplaceall]);
Result:=StringReplace(result,'<','<',[rfreplaceall]);
Result:=StringReplace(result,'&','&',[rfreplaceall]);
Result:=StringReplace(result,'"','"',[rfreplaceall]);
Result:=StringReplace(result,'''',''',[rfreplaceall]);
Result:=StringReplace(result,#10,' ',[rfreplaceall]);
Result:=StringReplace(result,#13,' ',[rfreplaceall]);
end;
Se vuoi una risposta "definitiva" devi, ovviamente, caricare da qualche parte l'XML per esaminarlo binariamente.