Страница: 1 | 
		
		 
			   
			 
			 
			 
			 Страница: 1 | 
 
			
 
  
		
     
  
    
Вопрос: бинарнаые данные
     
    
Добавлено: 07.12.05 19:57
     
      
  
				
			  
					 
			
				 
    
		
       
    
Автор вопроса:  
     Leha
 Leha
      
       
  
как мне бинарное содержимое какой нить переменное перекинуть в стринговую, например лонговое число 3 чтоб было представлено как chr(3)& chr(0) & chr(0) & chr(0), и так со всеми типами (как это бывает если сохраняешь переменную в бинари файл, а потом читаешь его содержимое в стринговый буыер)?
 
    
				
		
		
					 
			
				 
  
		
     
  
    
Ответы
     
    
Всего ответов: 3
     
      
  
		
	  
			 
	
		 
    
       
    
Номер ответа: 1 
      
Автор ответа: Victor
 Victor




ICQ: 345743490 
Вопросов: 42
Ответов: 385
      
 Web-сайт:  
 Профиль |  | #1
      
Добавлено:  07.12.05 21:37
       
    
       
  
Объявляешь байтовый массив. Редимишь в нужный размер. 
 
    
CopyMemory ТвойМассив(0), Переменная, РазмерПеременнойВБайтах
Дальше 
St = ТвойМассив
St = StrConv(St, vbUnicode)
Вот и все.
Но для каждого типа такое придется писать отдельно. И с вариантом проблемы могут быть.
		
	  
			 
	
		 
    
       
    
Номер ответа: 2 
      
Автор ответа: HACKER
 HACKER








 
Разработчик Offline Client
Вопросов: 236
Ответов: 8362
      
 Профиль |  | #2
       
Добавлено:  08.12.05 14:24
       
    
       
  
Dim a as Long
 
    
Dim s as String
Dim q as Integer
a = 3
s = str$  
q = Val(s$)
		
	  
			 
	
		 
    
       
    
Номер ответа: 3 
      
Автор ответа: Leha
 Leha








Вопросов: 37
Ответов: 68
      
 Профиль |  | #3
       
Добавлено:  08.12.05 18:14
       
    
       
  
2 victor - вери сенкс, я про байтовый масси в совсем забыл - пытался копить на прямую в стринг, ну а там сам понимаеш, вообщем еще раз сенкс