<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:16px"><div id="yui_3_16_0_1_1432310687982_4195">Hi Ara,</div><div id="yui_3_16_0_1_1432310687982_4161"><br></div><div id="yui_3_16_0_1_1432310687982_4196">Try this:</div><div id="yui_3_16_0_1_1432310687982_4327" dir="ltr">uses lazutf8;</div><div id="yui_3_16_0_1_1432310687982_4197">var</div><div id="yui_3_16_0_1_1432310687982_4332" dir="ltr"> us: unicodestring;//alternatively you can use widestring<br></div><div id="yui_3_16_0_1_1432310687982_4159"><span>begin</span></div><div id="yui_3_16_0_1_1432310687982_4210"> //...</div><div dir="ltr" id="yui_3_16_0_1_1432310687982_4209"> us := MediaInfo_Get(HND, Stream_General, 0, 'Title', Info_Text, Info_Name);</div><div id="yui_3_16_0_1_1432310687982_4248" dir="ltr"> ListBox.Items.Add(UTF16ToUTF8(us);<br><span></span></div><div id="yui_3_16_0_1_1432310687982_4208"><span id="yui_3_16_0_1_1432310687982_4272">end;</span></div><br> <div id="yui_3_16_0_1_1432310687982_4109" style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div id="yui_3_16_0_1_1432310687982_4108" style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div id="yui_3_16_0_1_1432310687982_4158" dir="ltr"> <hr id="yui_3_16_0_1_1432310687982_4207" size="1"> <font id="yui_3_16_0_1_1432310687982_4157" face="Arial" size="2"> <b id="yui_3_16_0_1_1432310687982_4222"><span id="yui_3_16_0_1_1432310687982_4221" style="font-weight:bold;">From:</span></b> aradeonas <aradeonas@operamail.com><br> <b id="yui_3_16_0_1_1432310687982_4271"><span id="yui_3_16_0_1_1432310687982_4270" style="font-weight: bold;">To:</span></b> lazarus@lists.lazarus.freepascal.org <br> <b id="yui_3_16_0_1_1432310687982_4269"><span id="yui_3_16_0_1_1432310687982_4268" style="font-weight: bold;">Sent:</span></b> Friday, May 22, 2015 6:34 PM<br> <b id="yui_3_16_0_1_1432310687982_4267"><span id="yui_3_16_0_1_1432310687982_4266" style="font-weight: bold;">Subject:</span></b> [Lazarus] DLL unicode value<br> </font> </div> <div id="yui_3_16_0_1_1432310687982_4107" class="y_msg_container"><br><div id="yiv4772739033">
<title></title>
<div id="yui_3_16_0_1_1432310687982_4106"><div id="yui_3_16_0_1_1432310687982_4127">Hi,<br></div>
<div id="yui_3_16_0_1_1432310687982_4142"> </div>
<div id="yui_3_16_0_1_1432310687982_4148">I want to get unicode value from an mp3 file and I used MediaInfo library for this and its unicode support and I used unicode methods.<br></div>
<div id="yui_3_16_0_1_1432310687982_4105">Code is simple :<br></div>
<div id="yui_3_16_0_1_1432310687982_4126"> </div>
<blockquote id="yui_3_16_0_1_1432310687982_4144"><div id="yui_3_16_0_1_1432310687982_4143">MediaInfoDLL_Load('MediaInfo.dll');<br></div>
<div id="yui_3_16_0_1_1432310687982_4145">HND := MediaInfo_New(); <br></div>
<div id="yui_3_16_0_1_1432310687982_4146">MediaInfo_Open(HND, 'test.mp3'); <br></div>
<div id="yui_3_16_0_1_1432310687982_4147">ListBox.Items.Add(MediaInfo_Get(HND, Stream_General, 0, 'Title', Info_Text, Info_Name));<br></div>
<div id="yui_3_16_0_1_1432310687982_4251">//MediaInfo_Get: function (Handle: Cardinal; StreamKind: TMIStreamKind; StreamNumber: Integer; Parameter: PWideChar; KindOfInfo: TMIInfo; KindOfSearch: TMIInfo): PWideChar cdecl stdcall;<br></div>
</blockquote><div id="yui_3_16_0_1_1432310687982_4211"> </div>
<div id="yui_3_16_0_1_1432310687982_4252">It work if Title value is ansi but if it is unicode it returns "???????" !<br></div>
<div id="yui_3_16_0_1_1432310687982_4218">But if I debug andset value to an string it's deug it shows me correct value.<br></div>
<blockquote id="yui_3_16_0_1_1432310687982_4213"><div id="yui_3_16_0_1_1432310687982_4217">s:=MediaInfo_Get(HND, Stream_General, 0, 'Title', Info_Text, Info_Name);//in debug s hint shows correct value but ListBox add ???<br></div>
<div id="yui_3_16_0_1_1432310687982_4212">ListBox.Items.Add(s);<br></div>
</blockquote><div id="yiv4772739033sig12586409"><div id="yui_3_16_0_1_1432310687982_4214" class="yiv4772739033signature"> </div>
<div id="yui_3_16_0_1_1432310687982_4215" class="yiv4772739033signature">Regards,<br></div>
<div id="yui_3_16_0_1_1432310687982_4216" class="yiv4772739033signature">Ara<br></div>
</div>
<div id="yui_3_16_0_1_1432310687982_4363"> </div>
<pre id="yui_3_16_0_1_1432310687982_4364">--
http://www.fastmail.com - Access your email from home and the web
</pre>
</div>
</div><br>--<br>_______________________________________________<br>Lazarus mailing list<br><a ymailto="mailto:Lazarus@lists.lazarus.freepascal.org" href="mailto:Lazarus@lists.lazarus.freepascal.org">Lazarus@lists.lazarus.freepascal.org</a><br><a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus</a><br><br><br></div> </div> </div> </div></body></html>