[Gambas-user] gb.mime segfault 11

[Benoît Minisini]

Le 24/11/2014 22:02, roberto a écrit :
> Thank you very mych for the fast resolution of the problem
> wait tomorrow for the revision #6677 revision, which is already
> available in svn but has a version 2.6.62 , while i have installed the
> version 6.2.99  and revision 6671 from the daily repository.
>
> For inquiries concerning the use of the library was to use the function
> g_mime_object_get_content_type()  to take value of charset that I know
> are in structure GMimeParam.
>
> I don't know if you've seen, but I've tried to implement in the code
> that I posted, but I do not think that is compliance with the rfc822
>
> Best Regards
>

Isn't it enough to parse the ContentType string?

sContentType = hPart.ContentType
aScan = Scan(sContentType,"*;charset=*")
If aScan.Count = 2 Then
   sCharset = aScan[1]
   If Left(sCharset) = Chr$(34) Then sCharset = Unquote(sCharset)
   Print "Charset is "; sCharset
Else
   Print "Charset is unknown"
Endif

-- 
Benoît Minisini