2012-11-18 8 views
0

Android (basic4android 사용)에서 버튼을 누르고 데이터를 수락하고 응답하는 VB6 프로그램을받는 방법에 대한 간단한 대답을 원합니다. Android와 VB6 프로그램을 실행하는 컴퓨터는 모두 동일한 WiFi에 연결됩니다.Basic4android와 VB6 사이의 통신

Erel은 나에게 URL을 제공하지만 몇 시간 동안 읽은 후에는 안드로이드 코드와 VB6 코드의 간단한 예를 찾을 수없는 것 같습니다.

+0

[네트워크 라이브러리] (http://stackoverflow.com/q/1326258/62576)에는 두 가지 예제가 있습니다. One (NetworkExample1)은 클라이언트 응용 프로그램을 보여줍니다. 다른 하나 (NetworkExample2)는 서버 응용 프로그램을 보여줍니다. 그건 당신에게 안드로이드에 대한 코드의 절반을 제공합니다. TCP/IP 통신을위한 VB6 코드 용 StackOverflow를 검색하십시오. 그 부분에 대한 많은 샘플 코드를 찾아야합니다. –

답변

0

나는 basic4android 모르지만, 다음과 같이 컴퓨터에 대한 간단한 VB6 프로젝트가 될 수 있습니다

'1 form with : 
' 1 textbox : name=Text1 
' 1 winsock control : name=Winsock1 

Option Explicit 

Private Sub Form_Load() 
    Text1.Move 0, 0, ScaleWidth, ScaleHeight 'position the textbox 
    With Winsock1 
    .LocalPort = 5001      'set the port to listen on 
    .Listen        'start listening 
    End With 'Winsock1 
End Sub 

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) 
    With Winsock1 
    If .State <> sckClosed Then .Close  'close the port when not closed (you could also use another winsock control to accept the connection) 
    .Accept requestID      'accept the connection request 
    End With 'Winsock1 
End Sub 

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 
    Dim strData As String 
    Winsock1.GetData strData     'get the data 
    ProcessData strData      'process the data 
End Sub 

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) 
    MsgBox Description, vbCritical, "Error " & CStr(Number) 
End Sub 

Private Sub ProcessData(strData As String) 
    Text1.SelText = strData     'show the data 
End Sub 

일부 발언 :

이 프로젝트의 연결을 허용하도록 청취 Winsock 컨트롤을 사용하여 , 그 후에는 더 이상 새로운 연결 요청을 듣지 않습니다. 많은 양의 데이터를 보낼 계획이라면 데이터를 버퍼링하고 완료되면 처리해야합니다.

+0

고마워요. Basic4Android와 며칠을 보냈기 때문에 제가 누락 된 세부 사항이 더 많이있는 것 같고 간단한 작업을 수행하는 방법을 알지도 못했습니다. Stackoverflow에있는 사람들이 Basic4Android를 사용하는 사람들에게 도움이된다는 것을 알았습니다. . . . 글쎄, 내가 거기에 사람들에게 5 개의 메시지를 요약하자. . . . 응답 없음. –

+0

@DanClark : basic4android로 지금까지 가지고있는 코드를 게시 할 수 있습니까? 그리고 당신은 어떤 결과를 얻었습니까? – Hrqls

+0

나는 항상 Droid로부터이 메시지를 받았다. "이것들은 당신이 원하는 드로이드가 아닙니다." –

0

VB6 쪽에서 COM 포트 중 하나를 통해 MSComm 제어 직렬 통신을 사용하십시오. OnComm은 수신 이벤트를 트랩합니다. 블루투스 변환기는 무선 통신을 처리하기 위해 포트에 연결될 수 있습니다. https://msdn.microsoft.com/en-us/library/aa259393(v=vs.60).aspx

B4A 쪽에서는 RFCOMM (가상 직렬 포트)을 사용하여 Bluetooth 장치와 연결하기 위해 직렬 라이브러리를 사용합니다. https://www.b4x.com/android/help/serial.html