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

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

2014.09.25 01:43

아기사랑 조회 수:5861

델파이로 안드로이드 쪽 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 15802
공지 유용한 관련 사이트 관리자2 2014.03.20 54604
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 98039
279 [질문]10.4에서 Linux 클라이언트 개발? [1] 오는새벽 2020.06.11 183
278 FDStoredProc 파라메터 오류 문의 [1] arabianwine 2020.06.11 312
277 이메일 첨부화일 접근에러에 대해 권한문제? [1] 스카이 2020.06.13 326
276 델파이로 시스템 초기화 버전 만들려고하는데 C드라이브 초기화 우루사 2020.06.14 139
275 GetIt Package Manager 에러 대처방법 [1] 스카이 2020.06.14 594
274 (자문 자답) JSON 안의 특정 필드 값만 바꾸는 방법은 TJsonPair를 사용하면 간단합니다. (POST, PUT 방식으로 특정 필드만 교체할 때, 특히 유용) [2] WhiteC 2020.06.15 344
273 윈도우 DIP 변경시 MainMenu 폰트 크기 크게 보이는 현상. [1] max 2020.06.15 231
272 10.4 Sydney 코드 인사이트 문제 [1] 불나방 2020.06.15 322
271 안드로이드 디바이스 인식하지 못하고 있어요. [1] file 연금술사 2020.06.19 178
270 [TRibbon] 텍스트 크기 설정에 따른 TRibbon 장애 문의입니다. file 초보델팡이 2020.06.22 108
269 10.3.3에서 TChart관련 문의드립니다. [2] ppqao 2020.06.22 433
268 [세미나: 데이터와 RAD] DataSnap 으로도 REST API 구현이 되는가요? 험프리 2020.06.24 758
267 [세미나: 데이터와 RAD] REST 클라이언트의 DataSetAdapter에서 XML을 다룰 수 있나요? [1] 험프리 2020.06.24 588
266 [세미나: 데이터와 RAD] 데모를 이전 버전으로 돌려보는 것도 가능할까요? 험프리 2020.06.24 106
265 [세미나: 데이터와 RAD] 공유메모리를 32비트에서 잘사용중인데 64비트에서 문제가 있습니다. [2] 험프리 2020.06.24 404
264 코로나19 세미나 관련 DB오류 질문드립니다. file 유정 2020.06.25 117
263 10.4 버전 DataSnap 연결 에러 질문드립니다. [4] syc 2020.06.25 618
262 Firemoney 로 Mac 및 리눅스 앱 제작시 [1] 100jk 2020.06.26 119
261 출력이 보이지 않습니다. [1] yawayo 2020.06.29 88
260 TMediaPlayer.Open 중 Invalid floating point operation 에러 발생 [4] Jack 2020.06.29 709
쓰기
태그