Ce projet montre comment lire une image contenue dans un Stream buffer, pour l'afficher directement dans un champ GDImage.
Voici le code qui permet de lire un Stream stocké dans le sous-dossier "Exe\images" de l'application.
PROCEDURE GDImageGetStreamFromFile(LOCAL sFileStream is string)
IF (IsWindow(gP.hCtrl)) THEN
IF (fFileExist(sFileStream)) THEN
nBufferSize is unsigned int = fSize(sFileStream)
fHandle is int = fOpen(sFileStream, foRead)
IF (fHandle <> -1) THEN
buffer is array dynamic of nBufferSize 1-byte int
fRead(fHandle, nBufferSize, &buffer)
fClose(fHandle); fHandle = 0
IF (NOT ZI_LoadImageFromStream(gP.hCtrl, &buffer, nBufferSize)) THEN
Trace("Error")
END
END
END
END
Note : C'est le programme qui détermine automatiquement le bon type de l'image, laquelle est affichée directement dans le champ GDImage si le format est reconnu.
...