Re^3: How read utf8 charachter from AddTextfield() in Win32::Gui

[Anonymous Monk]

Maybe it would help if you provided a runnable test case (ala How (Not) To Ask A Question) but I think you want to read A UTF8 round trip with MySQL.

[mohamad]

this is my code.

#!C:/strawberry/perl/bin/perl.exe


use strict;
use warnings;
use Encode;
use utf8;
use Win32::API ();
use Win32::GUI();


my $main = Win32::GUI::Window->new(
    -width  => 300,
    -height => 170,
        -left   => 200,  
        -top    => 100,
        -minsize => [300,170],
    -maxsize => [300,170],
        -dialogui =>1,
        
);

$main->AddTextfield(
                    -name => 'nametextfield',
            -pos=>[50,50],
            -size => [ 140, 25 ],
                    -align => 'right',
                    -tabstop => 1,
            );

my $savelabel = $main->AddButton(
                -name => 'save',
                -text =>'click me',
                 -pos => [50,100],
                 -tabstop => 1,
                 );
print $main->nametextfield->Text;
$main->Show();
Win32::GUI::Dialog();
sub Main_Terminate {
    return -1;
}
sub save_Click{
    my $nn = $main->nametextfield->Text();
   
    print $nn;
}

[HelenCr]

Mohamad: have you found a solution - how to use Unicode/UTF-8 with Win32::GUI?

[mohamad]

please show me a sample of get utf8 character from AddTextfield() and print it it ,IDE or in cmd. my database connection and others setting is correct. thankyou.

[Anonymous Monk]

please show me a sample of get utf8 character from AddTextfield() and print it it ,IDE

Please show me yours, the one that doesn't work (as per How (Not) To Ask A Question)

my database connection and others setting is correct

Well thats not what your error message is saying. Your text isn't encoded properly, so go ahead and encode it like A UTF8 round trip with MySQL explains that you need to.