Some problems with wclBluetoothDiscoveryx (VB6)

[viriato]

http://www.btframework.com/download.htm

The demo version of Wireless Communication Library has the following limitations:

only 3 devices can be discovered;

Thanks i read it before but how using the previous 6.0 beta release i didn't have that limitation i forget it.
Anyway i hope we could buy the Personal Licence tomorrow, here all boughts are made between days 10-15 of the month (stupid company policy)

Anyway i think I will need help in only one more point... how OPP works now? i mean if .push fuction now takes 0 arguments how I specify the file?

THANKS IN ADVANCE, AND GREAT WORK MIKE!

[Mike Petrichenko]

Put function takes 1 argument - a file name. and it is asynchroniouse command. I.e. after wille putted it call OnComplete event

[viriato]

The first part is not a question is only a help for people that some day could read this topic:


mmm Put function works in a strange way... first of all i must do late initialitations:

Not working:
Dim mObjectPush As wclOPPClientx
Set mObjectPush = New wclOPPClientx


Working
Dim mObjectPush As Object
Set mObjectPush = New wclOPPClientx

Using the second way I manage to avoid this error: "Function or interface marked as restricted, or the function uses an Automation type not supported in Visual Basic" when i call the put function


Anyway Put seems to need 2 parameters string ObjectName, System.IO.Stream Stream.

Unfortunately i only manage to get "Client not connected" errors... I'll try it. People stay on line

[viriato]

Maybe this could be the fish that bites his own tail...

if i need to declare it as object i can't declare it withevents (asyncronous)

 

[viriato]

My app shows "Client not connected" but the mobile ask about recibe the file 

[sobolev]

Hi, everyone. Sorry for my English, I speak rather bad.
I've made a simple vb6demo. It does not work with exceptions, so be carefull.
It will be updated in two days

[attachment deleted by admin]

[viriato]

My app shows "Client not connected" but the mobile ask about recibe the file 

Still same problem with the personal licence purchased. 

[Mike Petrichenko]

How do you use it? Can you show the code?

[sobolev]

VBdemo

[attachment deleted by admin]

[viriato]

How do you use it? Can you show the code?

Sure! I tried it in two ways: here we go!


In this first one the error shown is "client not connected" but the phone ask to recive data (anyway you can't recive it)

Code: [Select]

Private Sub btEnviar_Click()

    num = ListReceptores.SelectedItem.Index

    Set mObjectPush = New wclOPPClientx

    mObjectPush.ClientTransport = ctBluetooth
    mObjectPush.BluetoothParams.Radio = mRadio   
    mObjectPush.BluetoothParams.Authentication = False
    mObjectPush.BluetoothParams.Encryption = False   
    mObjectPush.BluetoothParams.Address = mDevices.Items(num - 1).Address

    mObjectPush.Open
   
     If mObjectPush.Active = True Then
        On Error GoTo ErrorHandlerPush
        mObjectPush.Put "C:\\a.jpg", "C:\\a.jpg"
    Else
        listLog.AddItem "No se pudo abrir"
       
    End If
    mObjectPush.Close
ErrorHandlerPush:
    listLog.AddItem Err.Description
   
End Sub


The second one was separating it in two steps , the first one is until .open function , so the phone ask for connection  you can reply yes! but when i launch the seccond part (the .put and .close function) nothing seems to happen, if you lauch this second part again the Active propertie is false so it was well close.

I tried too a third way that was make a clientx connection before but no luck again.


Thank you in advance (I didn't purchase BTframework with my nickname, it was purchased with the company name "Carintia")

[viriato]

VBdemo

I ask about OPP wich is not implemented yet, but thank you anyway.
P.D. It only discover 1 Device for me and I allways discover something like 10-15 usually.

[Mike Petrichenko]

here is

[attachment deleted by admin]

[sobolev]

VBDemo :

Works on my machine
Opp works
Proximity sender
vCardParser
BTDiscovery
SerialMonitor
UsbMonitor
Client 

Not tested:
IrDaDiscovery
DevInfoClient
IrMC Client

Not done yet:
Athenticator
FTP

[attachment deleted by admin]

[viriato]

 

[viriato]

I'm using Win XP 64 bit and Visual Basic 6 SP6 (also tried in win XP pro SP2)