-\r
-\r
- {\r
- if Assigned(aStream) then begin\r
- Clear;\r
- fFilename := '';\r
- reader := TutlStreamReader.Create(aStream);\r
- try\r
- if reader.ReadAnsiString <> GLSL_FILE_HEADER then\r
- raise EglcShader.Create('TglShaderProgram.SaveToStream - incompatible file');\r
- v := reader.ReadInteger;\r
-\r
- if v >= 100 then begin //version 1.00\r
- c := reader.ReadInteger;\r
- for i := 0 to c-1 do begin\r
- Add(TglcShaderObject.Create(Cardinal(reader.ReadInteger), fOnLog));\r
- Last.fCode := reader.ReadAnsiString;\r
- end;\r
- end;\r
- finally\r
- reader.Free;\r
- end;\r
- end else\r
- }\r