It appears there is a problem with JPEG_MarkerList and Unicode... sometimes...
var
iImage: PAnsiChar;
iCreator: PAnsiChar;
iWebsite: PAnsiChar;
iMisc: PAnsiChar;
iNote: PAnsiChar;
begin
iImage := PAnsiChar('Image: Shuttle324');
iCreator := PAnsiChar('Creator: NASA');
iWebsite := PAnsiChar('Website: www.NASA.com');
iMisc := PAnsiChar('October, 1997. All rights reserved.');
iNote := PAnsiChar('This is a demo image.');
{ Add the JPEG Markers }
ImageEnView1.IO.Params.JPEG_MarkerList.AddMarker(JPEG_COM,
iImage, length(iImage));
ImageEnView1.IO.Params.JPEG_MarkerList.AddMarker(JPEG_COM,
iCreator, length(iCreator));
ImageEnView1.IO.Params.JPEG_MarkerList.AddMarker(JPEG_COM,
iWebsite, length(iWebsite));
ImageEnView1.IO.Params.JPEG_MarkerList.AddMarker(JPEG_COM,
iMisc, length(iMisc));
ImageEnView1.IO.Params.JPEG_MarkerList.AddMarker(JPEG_COM,
iNote, length(iNote));
{ Set the info label captions}
InfoImage1.Caption := string(ImageEnView1.IO.Params.JPEG_MarkerList.MarkerData[0]);
InfoCreator1.Caption := string(ImageEnView1.IO.Params.JPEG_MarkerList.MarkerData[1]);
InfoWebsite1.Caption := string(ImageEnView1.IO.Params.JPEG_MarkerList.MarkerData[2]);
InfoMisc1.Caption := string(ImageEnView1.IO.Params.JPEG_MarkerList.MarkerData[3]);
InfoNotes1.Caption := string(ImageEnView1.IO.Params.JPEG_MarkerList.MarkerData[4]);
Why is there a problem with the first and last captions with Delphi XE4 but not the 2nd and 3rd and 4th captions?
If the captions are filled without JPEG_MarkerList the captions are correct?
{ Set the info }
InfoImage1.Caption := string(iImage); //string(ImageEnView1.IO.Params.JPEG_MarkerList.MarkerData[0]);
InfoCreator1.Caption := string(iCreator);//string(ImageEnView1.IO.Params.JPEG_MarkerList.MarkerData[1]);
InfoWebsite1.Caption := string(iWebsite);//string(ImageEnView1.IO.Params.JPEG_MarkerList.MarkerData[2]);
InfoMisc1.Caption := string(iMisc); //string(ImageEnView1.IO.Params.JPEG_MarkerList.MarkerData[3]);
InfoNotes1.Caption := string(iNote); //string(ImageEnView1.IO.Params.JPEG_MarkerList.MarkerData[4]);
Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development
Search
Why is there a unicode string problem DXE4
Posted - Jun 18 2014 : 11:58:17
