ÎÒµÄVC OCXÖÐÓÐ Ò»¸ö½Ó¿Ú£¬Õâ¸ö½Ó¿ÚÓÐÒ»¸ö²ÎÊýÊÇÐèÒª·µ»ØÒ»¸öÄÚ´æÎļþµÄ£¬ºÜ´ó£¬´ó¸ÅÓÐ2M×óÓÒ£¬ÏÖÔÚÎÒÏëͨ¹ýVBµ÷ÓÃÕâ¸ö½Ó¿Ú°ÑÕâ¸öÎļþ ´«µÝ³öÀ´£¬£¬ÏÈÊÇÉùÃû½Ó¿Ú²ÎÊýÀàÐÍΪBSTR*£¬ºÃ²»ÈÝÒ׸㶨ÁË£¬µ«ÊÇ´«µÝ³öÀ´µÄÊý¾Ý²»¶Ô£¬¸öÈ˸оõËûÊÇ°ÉÕâ¸ö2½øÖƵÄÎļþÁ÷ת»»³ÉUNICODEÁË£¬µ«ÊÇÎÒÓÃVBµÄSTRCONVת»»²»¹ýÀ´£¬ºóÀ´ÓÖÓÃVARIANTÀàÐ͵ģ¬µ«ÊÇÁ¬Äڴ涼²»ÈòÙ×÷ÁË
1.ÈçºÎÈÃOCXÖд«µÝ³öÀ´µÄ²ÎÊýÊÇÕýÈ·µÄ2½øÖÆÁ÷£¬¶ø²»ÊǾ¹ýunicodeת»»¹ýÀ´µÄ
2.µ½µ×¸ÃʹÓÃÉùÃûÊý¾ÝÀàÐ͵IJÎÊý
BSTR*²»ÐУ¬Óöµ½0»á½Ø¶Ï
ÓÃ IStream ½Ó¿Ú
ÒýÓà BSTR*²»ÐУ¬Óöµ½0»á½Ø¶Ï Óà IStream ½Ó¿Ú up
ÎÒÓõÄmemcpy£¬½Ø¶Ï²»½Ø¶Ï¶ÔÎÒûÓÐÓ°Ïì°¡£¬ÎÒ¸Õ²ÅÓÃVC²âÊÔÁËһϣ¬Ã»ÓÐÉÏÊöunicodeת»»µÄÎÊÌ⣬ÄѵÀVB¾ÍÕâôÀ¬»ø£¿£¿£¿
ÒýÓà ÎÒÓõÄmemcpy£¬½Ø¶Ï²»½Ø¶Ï¶ÔÎÒûÓÐÓ°Ïì°¡£¬ÎÒ¸Õ²ÅÓÃVC²âÊÔÁËһϣ¬Ã»ÓÐÉÏÊöunicodeת»»µÄÎÊÌ⣬ÄѵÀVB¾ÍÕâôÀ¬»ø£¿£¿£¿ ÎÊÌâ³öÔÚÄãµÄ½Ó¿Ú²ÎÊýÀàÐÍ£¬¼´Ê¹ÄãʹÓÃÁËmemcpyÒ²Ò»Ñù¡£
Â¥ÉÏÄãûÓп´Ã÷°×ÎÒµÄÒâ˼°É£¬ÎÒÓÃVCÒѾ²âÊÔͨ¹ýÁË
ʹÓÃbstrµÄ»°£¬»á×Ô¶¯×ª³ÉunicodeµÄ£¬ÒªÃ´base64Ò»ÏÂ
»òÕßÓÃVARIANTµÄSafeArray
base64£¿ÔÚVCÀïÍ·»¹ÊÇVBÀïÍ·°¡ °²È«Êý×éÕâôÓ𡣬Äܲ»ÄܾßÌåµã£¬ÒòΪocxµÄ½Ó¿Ú²ÎÊýÒ²¾ÍÄÇЩ£¬ºÃÏñûÓÐʲô°²È«Êý×éµÄÀàÐÍ°É£¿
base64 ±àÂë°Ñ¶þ½øÖÆת³É×Ö·û´®
VARIANTÀïµÄÊý×éÔÚvcʱͨ¹ýsafearrayʹÓõģ¬vbÔõôÓÃÎÒÒ²²»ÖªµÀ£¬ºÇºÇ
vcµÄsafearray²Ù×÷
long ReviewDocument::getMeasureBinData(VARIANT* aData)
{
Ïà¹ØÎÊ´ð£º
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......
±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£ ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£ È»ºóÔÊÐíºó·ÅÐС£ ±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£ ¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£ ÉèÖ ......
Private Sub Check1_Click() If Check1.Value = 1 Then DTP1.Enabled = True Else DTP1.Enabled = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then DTP2.Enabled = True Else
......
±ÈÈçÎÒ´ò¿ª×ÀÃæµÄ¡°1.txt¡±Îı¾£¬ÀïÃæµÚÒ»ÐÐÊÇ¡°111¡±£¬ÓÃVBÔõôд¸ö³ÌÐò£¬¿ÉÒÔ¶¨Ê±¸Ä±ä¡°111¡±Îª¡°222¡±£¬ÔÙ¸ô¶Îʱ¼ä±ä³É¡°333¡±£¬Ôõôд ..... ¶ÔÕýÔÚÔËÐеÄÎı¾ÓÐЧÂ𣬶ÔÕýÔÚÔËÐеÄÎı¾Äܲ»ÄÜÂíÉÏ¿´µ½±ä»¯£¨¿ ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£ ´úÂëÈçÏ£º VB code: Private Function getFile_CMD(filename, filepath) As Bo ......