Перейти к содержанию
Fire Monkey от А до Я

msccenter

Пользователи
  • Постов

    18
  • Зарегистрирован

  • Посещение

Весь контент msccenter

  1. Если речь про то, что заключено в [], то убрал там кавычки...
  2. А может быть такое, что у меня по этому пути .\assets\internal\db\ не находится что-то? Может быть надо было написать .\assets\internal\?
  3. Ну, данные те же, что и в IBExpert прописаны, в котором работает подключение... Прописал как ты сказал, без кавычек, ошибки нет, но выдается ошибка как на скрине выше... Буду думать, в чем может быть дело, что может блокировать удаленное подключение...
  4. А то, что я прописал параметры сервера и порта- это неправильно? Я просто снес InterBase как бы, т.к. он мешал мне при работе с Firebird по IP.
  5. А сейчас вот дописал и поправил код так: FDConnection1.DriverName:=DriverName; with FDConnection1 do begin Params.Database:= '***'; Params.UserName := '***'; Params.Password := '***'; Params.Add('Server=***.***.***.***'); Params.Add('Port=3050'); Params.Add('Protocol=ipTCPIP'); end; FDConnection1.Connected:=true; Получил ошибку такую: Причем, через тот же IBExpert, либо в Design Time из IDE Delphi, с теми же параметрами, подключаюсь отлично. В брандмауере порт открыт, раз по IP подключаюсь. Причем, в том же приложении мобильном, я спокойно подключаюсь к SQL Server Express, тоже по IP. Может для подключения через FireDAC надо отдельно как-то правило настраивать в брандмауэре?
  6. Написал код в кнопке, вот так: procedure TForm1.Button3Click(Sender: TObject); const DriverName='FB'; var DriverLink:TFDPhysDriverLink; begin FDPhysManager().Open; DriverLink:=FDPhysManagerObj.FindDriverLink(DriverName); if not assigned(DriverLink) then DriverLink:=TFDPhysFBDriverLink.Create(nil); if DriverLink.DriverState<TFDPhysDriverState.drsLoaded then begin {$IF DEFINED(iOS) or DEFINED(ANDROID)} DriverLink.VendorHome:= ''; DriverLink.VendorLib:= IncludeTrailingPathDelimiter(TPath.GetDocumentsPath) + 'libfbclient.so.3.0.10'; {$ENDIF} if FileExists(DriverLink.VendorLib) then DriverLink.DriverIntf.Load; end; FDConnection1.DriverName:=DriverName; with FDConnection1 do begin Params.Database:= '***'; Params.UserName := '***'; Params.Password := '***'; Params.Values['S_FD_ConnParam_IB_Protocol']:='TCPIP'; Params.Values['S_FD_ConnParam_Common_Server']:='*********'; Params.Values['S_FD_ConnParam_Common_Port']:='***'; Params.Values['S_FD_ConnParam_IB_SQLDialect']:='3'; Params.Values['S_FD_ConnParam_IB_RoleName']:=''; end; FDConnection1.Connected:=true; end; Выдалось такое сообщение: Да, у меня нет InterBase. Для работы с Firebird я использую FireDAC, а не IB-компоненты...
  7. Этот код поместить в OnCreate формы? procedure TForm1.FormCreate(Sender: TObject); var DriverLink:TFDPhysDriverLink; begin FDPhysManager().Open; DriverLink:=FDPhysManagerObj.FindDriverLink(DriverName); if not assigned(DriverLink) then DriverLink:=TFDPhysFBDriverLink.Create(nil); if DriverLink.DriverState<TFDPhysDriverState.drsLoaded then begin {$IF DEFINED(iOS) or DEFINED(ANDROID)} DriverLink.VendorHome:= ''; DriverLink.VendorLib:= IncludeTrailingPathDelimiter(TPath.GetDocumentsPath) + 'libfbclient.so.3.0.10'; {$ENDIF} if FileExists(DriverLink.VendorLib) then DriverLink.DriverIntf.Load; end; ClientLibrary := IncludeTrailingPathDelimiter(TPath.GetDocumentsPath) + 'db' + PathDelim + 'libfbclient.so.3.0.10'; UniConnectionFB.ConnectString := 'Provider Name=InterBase;' + 'Data Source=***.***.***.***;' + 'Database=myDB;' + 'Port=3050;' + 'User ID=*****;' + 'Password=******;'+ 'Client Library=' + ClientLibrary + ';' + 'Use Unicode=True;' + 'Login Prompt=False'; end;
  8. Добрый день! Делал ли кто-то распознавание QR-Code через камеру телефона? Мне нужно только навести камеру на штрихкод, распознать его, получив значение из него и все.
  9. Добрый день! Смотри, сделал как ты написал. "Новая папка" - каталог, в котором лежат все файлы проекта. "media" - каталог, который находится рядом с "Новая папка" и в котором находится файл libfbclient.so.3.0.10 (от Firebird 3.0). Добавил через Project - Deployment для Debug: Сделал переменную ClientLibrary в секции private главной формы. В событии OnCreate главной формы прописал: procedure TForm1.FormCreate(Sender: TObject); begin ClientLibrary := IncludeTrailingPathDelimiter(TPath.GetDocumentsPath) + 'db' + PathDelim + 'libfbclient.so.3.0.10'; UniConnectionFB.ConnectString := 'Provider Name=InterBase;' + 'Data Source=***.***.***.***;' + 'Database=******;' + 'Port=3050;' + 'User ID=SYSDBA;' + 'Password=*******;'+ 'Client Library=' + ClientLibrary + ';' + 'Use Unicode=True;' + 'Login Prompt=False'; end; Но, когда пробую подключиться, то получаю ошибку: Что я делаю не так? Делал как написал...
  10. Ну, у меня ОС на компе, где проект мобильного приложения, является Windows 10. Удаленный сервер развернут на Windows Server 2012. В этом дело? Если да, то я не нашел нужной версии для Windows библиотеки libfbclient... Но сам-то код правильный же?
  11. Да, такой код говорит о том, что файл существует на устройстве. Вот код кнопки подключения к серверу: if TFile.Exists(TPath.Combine(TPath.GetDocumentsPath,'libfbclient.so.2.5.8')) then begin ShowMessage('существует'); Mobile_DM.IBCConnection1.Connected:=False; Mobile_DM.IBCConnection1.Connected:=True; if Mobile_DM.IBCConnection1.Connected then begin ShowMessage('+'); end else begin ShowMessage('-'); end; end else begin ShowMessage('не существует'); end; Но, что интересное, то выдается сначала сообщения, что Cannot load client library: /data/user/0/com.embarcadero.msccMobile/files/libfbclient.so.2.5.8 А потом уже выдается мое проверочное сообщение с текстом "существует". Хотя код говорит, что сначала должно быть оно выходить...
  12. Положил сюда: Затем выполнил Deploy через кнопочку и получил такой список: И получается та же ошибка в приложении про то, что не может загрузить библиотеку libfbclient.so.2.5.8. В самом коде надо менять что-то?
  13. Можно ли его сюда положить? И что считается "корнем" в контексте проекта приложения на Android?
  14. Прямо совсем совсем все плохо работает? Зачем-то же тогда созданы эти компоненты. Ведь через них возможно же сделать прямое подключение? Если да, то я и прошу сказать, что я не так донастроил. С тем, что это плохо работает возможно, я разберусь позже.
  15. Да ну какое ТЗ, это мой личный проект) А вот у меня сайт на Wordpress есть, пойдет в качестве сервера для работы мобильного приложения через http?
  16. А можно пример как такое реализовать?
  17. Добрый день! У меня вот не получается установить подключение к серверу Firebird через приложение Android. Я разместил файл libfbclient.so.2.5.8 в папке assets\internal, в меню Project - Deployment указал путь сначала так: Потом сделал через кнопку так: В самом проекте у меня есть DataModule, в котором есть IBConnection из библиотеки IBDac от Devart. Путь к библиотеке я прописал в FormCreate этого модуля так: Когда пробую подключиться к моему удаленному серверу по IP адресу, то получаю ошибку: Cannot load client library: /data/user/0/com.embarcadero.msccMobile/files/libfbclient.so.2.5.8. Что я делаю не так? Как мне сделать, чтобы подключалось нормально? Прошу помочь, только второй день работаю с этим направлением.
×
×
  • Создать...