Imagen, HEX для байтов и байтов для HEX и показать img.Visual Basic в PHP - PullRequest
Новая
       15

Imagen, HEX для байтов и байтов для HEX и показать img.Visual Basic в PHP

0 голосов
/ 08 октября 2018

Мне нужно передать функцию в Visual Basic в PHP, чтобы прочитать это изображение, сохраненное в MySQL.Я пробовал несколько вещей, но я не делал этого в базе данных MySql, в настоящее время она сохраняется: https://www.pastiebin.com/5bbba9dbc63f6#&togetherjs=73xi1xwALu

    'Save string a Byte in MySql
Public Function StringaByte(cTexto As String) As Byte()
Dim aByte() As Byte
Dim aHexa() As String
Dim i As Long

aHexa = Split(cTexto, "&H")
ReDim aByte(UBound(aHexa) + 1) As Byte
For i = 0 To UBound(aHexa) - 1  
    DoEvents
    aByte(i) = CLng("&H" & aHexa(i + 1))  
Next

StringaByte = aByte
End Function  

'Load hexa in MySql an conver to Byte
Private Function ByteaString(aByte() As Byte) As String
Dim i As Long
Dim cHex As String
cHex = ""
For i = 0 To UBound(aByte)
    DoEvents
    cHex = cHex & "&H" & Hex(aByte(i))    
Next

ByteaString = cHex 
End Function

в PHP Я пробовал функцию hex2bin и пакет 

<?php
//header("Content-type: image/gif"); 
header("Content-type: image/jpg"); 

$img2="CODE HEXA IN LINK";

function hextobin($hexstr){ 
    $aHexa = explode("&H", $hexstr);
    $count=count($aHexa);  
    $aByte="";
    for ($x=0;$x<$count; $x++){
        @$aByte .="&H".hex2bin($aHexa[$x]);
    }
    return $aByte;
 }  

$acomulo= hextobin($img2) ;
echo base64_decode($acomulo);exit; 
//echo $acomulo;exit; 

?>

прочеепример в php 

 <?php
$img2="CODE HEXA IN LINK";

    function hextobin($hexstr) {
        $aHexa = explode("&H", $hexstr);
        $count = count($aHexa);
        $aByte = "";
        for ($x = 0; $x < $count; $x++) {;
            @$aByte .=pack("H*", $aHexa[$x]);
        }
        return @$aByte;
    }
    $acomulo = hextobin($img2);
    header("Content-type: image/gif");
    echo base64_decode($acomulo);
    exit;

?>

1 Ответ

0 голосов
/ 16 октября 2018

Визуальные функции не генерируют исходный 100-процентный шестнадцатеричный. 

function vb6toIMG($func_string){
$func_string=substr($func_string,2);
    //die($func_string);

    $arrayHex=explode ("&H",$func_string);
    $str="";
    foreach($arrayHex as $ind=>$dato){
            $str.=chr(hexdec($dato));
    }   
        return $str;
}
...