ciao a tutti, vorrei, da neofita di delphi, esporvi un problema che mi sta bloccando nella creazione di una unit per la lettura di file Dicom....
ho aperto il file d'interesse e l'ho passato alla procedura che deve leggerlo...di seguito vi mostro lo spezzone di procedura( per non dilungarmi vi mostro solo fino al punto che mi da errore...)
procedure read_dicom_data( var uscita: Tmemo ; var fp: file);
type
dicom_types = (unknown, i8, i16, i32, ui8, ui16, ui32, _string );
var
first_one : Boolean;
time_to_quit : Boolean;
group, element, dummy, e_len, remaining, tmp : uint32;
info : string;
t : dicom_types;
where : LongInt;
tx : array [0..3] of Char;
n, i : Integer;
begin
info := '';
t := unknown;
// lettura di 128 byte a zero di preambolo del file dicom
seek(fp, 0); // mi metto all'inizio del file fp
where := FilePos(fp);
//uscita.lines.Add( inttostr(where)); controllo che mostra che sono al byte 0
BlockRead(fp, tx, 4*SizeOf(Char), n);
....ecco io arrivo alla lettura e la compilazione non mi da errori, però all'esecuzione mi compare il messaggio di errore: access violation at 0x00000000: read of address 0x00000000..e non riesco a capire il motivo per cui non mi legge il file dall'inizio....
spero di aver descritto il problema (naturalmente la soluzione che ora mi sfugge sarà una bazzecola)..grazie per l'interessamento!
Rispondi quotando
