자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

Delphi XE7델파이로 안드로이드쪽 개발을 하고 있습니다. 그런데~~~

2014.09.25 01:43

아기사랑 조회 수:5880

델파이로 안드로이드 쪽 USB통신을 만들고 있는데 샘플 소스를 구해서 응용한 결과 에러가 납니다. 그런데 에러나는 곳이 다른곳에서도 쓰이는 것인데 왜 정의가 안되어 있다고 나오는 것인지 알수 없어서 도움을 요청 합니다.

USES절에 Androidapi.JNI.JavaTypes을 정의 했는데도 아래 버튼3 부분 SharedActivityContext.getSystemService(TJContext.JavaClass.USB_SERVICE);에서  SharedActivityContext와 getSystemService가 정의가 안되어 있다고 에러가 뜸니다

그리고 그밑에 jstringtostring(s)도 정의가 안되어 있다고 하는데 아 찾지는 못하겠습니다.


참조하는 웹에 샘플은 다음과 같습니다. http://www.bverhue.nl/g2dev/?p=65 여기에 Androidapi.JNI.USB는 구현을 해놨습니다.


도음을 요청합니다.


unit test;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  Androidapi.JNIBridge,
  Androidapi.JNI.GraphicsContentViewText,
  Androidapi.JNI.JavaTypes,
  Androidapi.JNI.USB, FMX.Layouts, FMX.Memo;

.

.

.

procedure TForm1.Button3Click(Sender: TObject);
var JavaObject : JObject;
    DeviceList : JHashMap;
    Device : JUSBDevice;
    i : Jiterator;
    s : JString;
begin
  // Device discovery...

  // Get pointer to UsbManager
  JavaObject := SharedActivityContext.getSystemService(TJContext.JavaClass.USB_SERVICE);

  FUsbManager := TJUSBManager.Wrap((JavaObject as ILocalObject).GetObjectID);

  // Get a list of connected slave devices
  DeviceList := FUsbManager.getDeviceList;
  s := DeviceList.toString;
  Memo1.Lines.Add(jstringtostring(s));

  // Get pointer to G2 Device
  FUsbDevice := nil;
  i := DeviceList.values.iterator;
  while i.hasNext do begin
    Device := TJUSBDevice.Wrap((i.next as ILocalObject).GetObjectID);
    if (Device.getVendorId = 4092) and (Device.getProductId = 2) then
      FUsbDevice := Device;
    Memo1.Lines.Add('VendorID ' + IntToStr(Device.getVendorId) + ', ProductID ' + IntToStr(Device.getProductId));
  end;

  if assigned(FUsbDevice) then
    button1.Enabled := assigned(FUsbDevice);


end;

이 게시물을
목록
목록
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 17291
공지 유용한 관련 사이트 관리자2 2014.03.20 56178
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 99600
273 델파이 10.4 patch하니 실행이 안됩니다. [7] file 갈굼정미 2021.08.26 2020
272 XE5 Trail Version 설치 시 C++ Builder 에서는 "FireMonkey Mobile Application"을 지원하지 않나요? [1] J7 2014.04.08 2022
271 블루투스 프린터 출력을 하려고 합니다 [3] silkroad99 2016.11.16 2023
270 Delphi XE7 평가판을 이용하여 iOS 샘플 앱을 만들던 중 문의사항이 있어 메일을 드립니다. [5] radio 2015.03.14 2036
269 IdTcpServer와 IdTcpClient를 이용한 Sample 예제 있나요? [2] 거북선생 2016.10.26 2048
268 XE5 Android에 TWebbrowser를 사용할 때.. [2] ScorpioM 2014.04.15 2049
267 비콘 거리 측정에 대해 문의 드립니다. [2] 쿠키 2017.04.14 2051
266 combobox 로 lookup 구현방법 [1] file 정헌이 2014.06.04 2066
265 [문의]android target에 다른 pc emulator 추가 하는방법 [1] 강성범 2014.09.02 2079
264 [질문] DataSnap에서 메시지 전달방법 [1] cdrd 2014.03.25 2081
263 [XE8 출시세미나] RAD Studio XE8 출시세미나 질문과 답변 Humphery 2015.05.01 2081
262 자동차 인식 방법에 대한 질문입니다. [4] file 거북선생 2021.08.25 2084
261 [공유] 스트링그리드(TStringGrid)를 정렬하고 싶어요. file 험프리 2015.10.27 2087
260 [공유] 웹뷰를 이용한 하이브리드 앱 개발 시 궁금한 점 험프리 2017.08.02 2095
259 XE7에서 FireDAC를 이용하여 AccessDB사용시 배포 [3] 투덜이스머프 2014.12.10 2103
258 [세미나] 휴대폰번호 인증서비스도 지원하나요? [1] Humphery 2014.07.30 2104
257 델파이와 오라클 호환성 [1] 오라클매니아 2014.03.06 2133
256 [마이그레이션][64bit] 64비트에서 CreateFileMapping의 반환값(핸들)이 0으로 표시됩니다. 험프리 2017.01.31 2135
255 Delphi XE7 kbmmemtable (CodeGear Edition) 설치 오류 [1] 도사 2014.10.06 2139
254 개발후 배포를 위한 작업중 오류 [3] file KMCIT 2014.07.10 2147
쓰기
태그