자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi 바코드 스캐너 관련문의
2017.04.24 09:44
안녕하세요
김현수님 블로그에서 보고 테스트해 본내용입니다.
제가 잘못한것이 있어서 동영상처럼 나오지 않네요
혹 잘못된 것이 있으면 알려주세요
첨부파일을 업로드합니다.
감사합니다.
댓글 2
-
-
silkroad99
2017.04.25 09:15
안녕하세요
블로그에서 많은 도움을 받고 있습니다.
답글에 감사드립니다.
기회가 되면 한번 찾아뵙고 싶네요
알려주신 내용을 조금 수정했습니다.
[listbox 블루투스 uuid 조회]
procedure TfPrintSet_Form.getBonded(const aSL : TStrings);
var
x:JBluetoothAdapter;
externalDevices:JSet;
bonded:Tjavaobjectarray<Jobject>;
it:Jiterator;
o:JBluetoothDevice;
begin
x:=TJBluetoothAdapter.JavaClass.getDefaultAdapter;
externalDevices:=x.getBondedDevices;
it:=externalDevices.iterator;
while it.hasNext do
begin
o:=TJBluetoothDevice.Wrap((it.next as ILocalObject).GetObjectID);
aSL.Add(jstringtostring(o.getName)+'='+jstringtostring(o.getAddress));
if jstringtostring(o.getAddress) <> '' then
ListBox1.Items.Add(jstringtostring(o.getAddress));
end;
[실제연결 부문-uuid로 변경]
procedure TPointMobileBluetoothChatService.ConnectChatService;
var
I: Integer;
DeviceName: string;
ChatServiceState: Integer;
begin
if FBluetoothAdapter.PairedDevices.Count = 0 then Exit;
//FBluetoothDevice := FBluetoothAdapter.PairedDevices[2] as TBluetoothDevice;
//FChatService.connectByAddress(StringToJString(FBluetoothDevice.Address));
FChatService.connectByAddress(StringToJString(listbox1.items[listbox1.itemIndex));
end;
좋은 하루 되세요
Delphi 바코드 스캐너 관련문의
2017.04.24 09:44
안녕하세요
김현수님 블로그에서 보고 테스트해 본내용입니다.
제가 잘못한것이 있어서 동영상처럼 나오지 않네요
혹 잘못된 것이 있으면 알려주세요
첨부파일을 업로드합니다.
감사합니다.
댓글 2
-
silkroad99
2017.04.25 09:15
안녕하세요
블로그에서 많은 도움을 받고 있습니다.
답글에 감사드립니다.
기회가 되면 한번 찾아뵙고 싶네요
알려주신 내용을 조금 수정했습니다.
[listbox 블루투스 uuid 조회]
procedure TfPrintSet_Form.getBonded(const aSL : TStrings);
var
x:JBluetoothAdapter;
externalDevices:JSet;
bonded:Tjavaobjectarray<Jobject>;
it:Jiterator;
o:JBluetoothDevice;
begin
x:=TJBluetoothAdapter.JavaClass.getDefaultAdapter;
externalDevices:=x.getBondedDevices;it:=externalDevices.iterator;
while it.hasNext do
begin
o:=TJBluetoothDevice.Wrap((it.next as ILocalObject).GetObjectID);
aSL.Add(jstringtostring(o.getName)+'='+jstringtostring(o.getAddress));
if jstringtostring(o.getAddress) <> '' then
ListBox1.Items.Add(jstringtostring(o.getAddress));
end;[실제연결 부문-uuid로 변경]
procedure TPointMobileBluetoothChatService.ConnectChatService;
varI: Integer;
DeviceName: string;
ChatServiceState: Integer;
begin
if FBluetoothAdapter.PairedDevices.Count = 0 then Exit;//FBluetoothDevice := FBluetoothAdapter.PairedDevices[2] as TBluetoothDevice;
//FChatService.connectByAddress(StringToJString(FBluetoothDevice.Address));FChatService.connectByAddress(StringToJString(listbox1.items[listbox1.itemIndex));
end;좋은 하루 되세요
http://blog.hjf.pe.kr/452(미러 : http://tech.devgear.co.kr/delphi_news/431533)
위 글을 보고 질문 하시는 것으로 보입니다.
=========
이전 질문
=========
안녕하세요
샘플 프로젝트를 베를린에서 테스트 해보고 있습니다.
프로젝트 소스에서 압축을 풀면
begin
Application.Initialize;
AApplication.CreateForm(TForm1, Form1);
pplication.Run;
end.
상단에서 압축문제인지 잘 못된것을 수정하고나서
컴파일하고 실행하면 바코드 스캐너가 스캔을 못합니다.
메모장에 커서를 놓으면 바코드 리딩이 되는데
스캔 버튼 클릭하면 작동이 안됩니다.
메모장이나 에디트박스에서 커서 위치시키고
스캔해야만 됩니다.
제가 뭐를 잘못하고 있는건가요
==========
다음은 블루투스 바코드의 서비스와 연결하는 코드입니다.
코드와 같이 페어링된 디바이스 중 첫번째 것(index 0)과 연결하는 것으로 되어 있는데요.
만약, 페어링된 다른 기기가 있다면 문제가 될 수 있습니다.
페어링 된 목록을 화면에 표시 후 선택하도록 조치하시거나 올바른 인덱스번호로 코드를 수정하시기 바랍니다.
procedure TPointMobileBluetoothChatService.ConnectChatService;
var
I: Integer;
DeviceName: string;
ChatServiceState: Integer;
begin
if FBluetoothAdapter.PairedDevices.Count = 0 then
Exit;
FBluetoothDevice := FBluetoothAdapter.PairedDevices[0] as TBluetoothDevice;
FChatService.connectByAddress(StringToJString(FBluetoothDevice.Address));
end;
그리고, 각 단계별로 올바르게 동작하는지 디버그 모드 또는 로그로 확인하시며 진행해보시기 바랍니다.
진행하시다가 잘 안되시면, 데브기어에 한번 놀러오세요^^(앱 제작하신 노하우도 좀 이야기 해주시구요^^)