[-=#PupaJr#=-]

Доброго всем.
Есть стандартный файл литографии STL - дока в сети есть но всёже приведу
Его структура:
80 первых байт текст - комменты
4 байта число элементов (треугольников) (тип Dword)
4 по 4 Real32 - нормаль XYZ и координаты ХYZ вершин треугольника
2 байта вспомогательная инфа.
и того 80 + 4 + 50 + 50 +50 +.....+50(раз элементов).
составляю типы:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

type triangle=record  nv:single  tx:single  ty:single  tz:single  tc:word end type mstl=record  comm:string  // 80  numt:dword  // 4  ztrian:triangle // 50 end

Программа компилится, запускается но при какой либо попытке чтения вылетает I/O error и всё стоп.
К тому же не ясно, как перебирать в таком типе все треугольники (50 байт 4х4 +2)
при чтении указывать как массив(максючисло треуг.допустим 6000000): ztrian:array [0..6000000] of triangle .
А как писать обратно в такой файл? и если писать массив то запишется весь??? (6000000???) а мне надо скажем 10000 всего?
Что не делаю то I/O error или вместо данных (достоверно прочтёных в фирменной программе) получаю не координаты и сумашедшие числа...
ХЕЛП...

[lmikle]

1. Читать через TFileStream
2. Перед чтением надо память выделять
Как-то так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

type   TSTLItem = record     nv:single     tx:single     ty:single     tz:single     tc:word   end;     TSTLStruct = record     Comm : AnsiString;     Count : DWORD;     Items : Array Of TSTLItem;   end;   procedure ReadSTLFile(FileName : String; var Data : TSTLStruct); var   I : Integer;   F : TFileStream; begin   F := TFileStream.Create(FileName, fmOpenRead);   Try     SetLength(Data.Comm,80);     F.ReadBuffer(Data.Comm[1],80);     F.ReadBuffer(Data.Count,sizeOf(DWORD));     SetLength(Data.Items,Data.Count);     For I := 0 To Data.Count-1 Do       Begin         F.ReadBuffer(Data.Items[i].nv,SizeOf(Single));         // Здесь читаем остальные поля текущего треугольника       End;   Finally     F.Free;   end; end;

[Alegun]

ТС похоже немного заблуждается, если судить по описанию бинарной версии данного формата, то структура записей должна быть слегка другой, с чтением из буфера не дружу, но вот такой вариант загрузил координаты треугольников тестового чайника из teapot.stl

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

type   TSTLItem = record     ni: single;     nj: single;     nk: single;     x1: single;     y1: single;     z1: single;     x2: single;     y2: single;     z2: single;     x3: single;     y3: single;     z3: single;     tc: word;   end;      TSTLStruct = record     Comm : String[80];     Count : DWORD;     Items : Array Of TSTLItem;   end;   var  Data : TSTLStruct;  StlFile: TFileStream;  b: dword; begin   StlFile:= TFileStream.Create(FileName, fmOpenRead);   StlFile.Seek(0, soFromBeginning);   StlFile.Read(Data.comm,80);   StlFile.Read(Data.Count,4);   SetLength(Data.Items,Data.Count);   for b:= 0 to Data.Count-1 do    begin     StlFile.Read(Data.Items[b].ni,4);     StlFile.Read(Data.Items[b].nj,4);     StlFile.Read(Data.Items[b].nk,4);     StlFile.Read(Data.Items[b].x1,4);     StlFile.Read(Data.Items[b].y1,4);     StlFile.Read(Data.Items[b].z1,4);     StlFile.Read(Data.Items[b].x2,4);     StlFile.Read(Data.Items[b].y2,4);     StlFile.Read(Data.Items[b].z2,4);     StlFile.Read(Data.Items[b].x3,4);     StlFile.Read(Data.Items[b].y3,4);     StlFile.Read(Data.Items[b].z3,4);     StlFile.Read(Data.Items[b].tc,2);    end;  StlFile.Free;   end;

[-=#PupaJr#=-]

Прочитать могу только < примерно 40000 треугольников и а если ставлю больше то Stack Overflow, если не ставлю размер - то вообще не компилит.
Вот моя полная процедура:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83

procedure TForm1.Button1Click(Sender: TObject);  // загрузить файл точек/бинарник/треугольники type   striangle=packed record           // 50_и байтная запись 1 треугольника   trnormx:single;       // 4   trnormy:single;       // 4   trnormz:single;       // 4   tr3dx1: Single;       // 4   tr3dy1: Single;       // 4   tr3dz1: Single;       // 4   tr3dx2: Single;       // 4   tr3dy2: Single;       // 4   tr3dz2: Single;       // 4   tr3dx3: Single;       // 4   tr3dy3: Single;       // 4   tr3dz3: Single;       // 4   trattr: word;         // 2 end; type   StlRec= packed record     SName: array[1..80] of Char;//string[80];      // array of char  сработал правильно     Snum: dword;     msstri: array [0..60000]of striangle;         // множество записей треугольничных записей - 60000 уже не берёт end; var i,ii,jj,sl:integer; sss,stru:string; Buf: array[1..127] of Char; mash:single; NumRead: integer; Infl: file of Single; //stlf: file; stlperm: StlRec; stlf: file of StlRec; begin  mash:=strtofloat(Edit1.text);  if OpenDialog1.Execute then    begin       if OpenDialog1.FilterIndex=3 then   //  STL bin file         begin           AssignFile(stlf,OpenDialog1.FileName);           Reset(stlf);           DlnStr:=80;         //  BlockRead(stlf,,DlnStr,NumRead);                //читаем файл в массив           read(stlf,stlperm);        //   SetLength(stlperm.msstri, stlperm.Snum);    // попытка дать размер массиву треугольников           DlnStr:=1;          // ntri:=FilePos(stlf);// - возвращает текущую позицию чтения/записи в файл       //    BlockRead(stlf,ntri,DlnStr,NumRead);           DlnStr:=NumRead;                          //получили реальную длину файла           CloseFile(stlf);           ii:=21;           i:=0;          // ntri:=Fbind[20];    // запоминаем число треугольников для процедуры вывода графики     //      memo1.Clear;    //       SendMessage(memo1.Handle, WM_SETREDRAW, 0, 0) ;   // запрещаем перерисовку для ускорения вывода           jlc:=stlperm.Snum;         //  while i<(stlperm.Snum-1) do           while i<(19999) do             begin //              ii:=ii+1; //              stlperm.msstri[]                                 // перепрыгиваем направление нормали треугольника               triangle3dx1[i]:= stlperm.msstri[i].tr3dx1;         // заполняем массив точками               triangle3dy1[i]:= stlperm.msstri[i].tr3dy1;         // заполняем массив точками               triangle3dz1[i]:= stlperm.msstri[i].tr3dz1;         // заполняем массив точками               triangle3dx2[i]:= stlperm.msstri[i].tr3dx2;         // заполняем массив точками               triangle3dy2[i]:= stlperm.msstri[i].tr3dy2;         // заполняем массив точками               triangle3dz2[i]:= stlperm.msstri[i].tr3dz2;         // заполняем массив точками               triangle3dx3[i]:= stlperm.msstri[i].tr3dx3;         // заполняем массив точками               triangle3dy3[i]:= stlperm.msstri[i].tr3dy3;         // заполняем массив точками               triangle3dz3[i]:= stlperm.msstri[i].tr3dz3;         // заполняем массив точками               i:=i+1;               ii:=i;       //        memo1.Lines.Add(floattostrf(points3dx[i],fffixed,6,3)+' '+floattostrf(points3dy[i],fffixed,6,3)+' '+floattostrf(points3dz[i],fffixed,6,3));        //       i:=i+1;             end;        //    SendMessage(memo1.Handle, WM_SETREDRAW, 1, 0);     // разрешаем перерисовку       //    RedrawWindow(memo1.Handle, nil, 0,RDW_ERASE or RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN);         end; // open STL    end;// open file  l_point:=true;   label1.Tag:=ii; end;

В принципе работает он но на малое число - 20000 точно берёт.
Видел примеры что делают через Read/Seek по записям - но там нет заголовочной инфы и какие-то примеры не полноценные...

Спасибо, попробую.

[-=#PupaJr#=-]

Alegun Ваш код работает, спасибо, только число переменных больше и Data надо объявить (о, Вы уже дописали код ))), и в принципе я читал потом не в переменную файла а в массив типа single - всё нормально прочиталось и массив заполнился.
С этого массива сразу читал точки и в OpenGl строил треугольники - всё чётко.
Всем спасибо ))

[Alegun]

Способом копипасты довёл число треугольников в текстовом варианте больше чем 160000 штук, затем первёл в бинарный формат - прекрасно под D7 полученный файл и открывается и грузится в структуру, наверное с типами у вас неразбериха, отсюда и преполнение

З.Ы. Есть менее затратный вариант - подключить к проекту assimp32.dll, порт объявы под делфи в сетке вроде на неё есть, а это умеет работать со многими форматами, в том числе и с двумя вариантами *.stl