Rusland

Кажется нашел я причину проблем с моим DataSnap проектом - при создании я поставил галочку HTTPS. 

Сейчас пересоздал проект заново без HTTPS, все заработало.

PS. Возможно просто нужно найти правильные ssleay32.dll и libeay32.dll

Пытаюсь подключиться к таблице с DataSnap сервера. База данных Firebird.

Получаю ошибку Invalid parameter. При этом иногда данные успевают проскочить и я их вижу в клиентской части программы. Но все равно каждый раз при любом действии в DBGrid выдает Invalid parameter.

Помогите разобраться в чем проблема. Исходники прилагаю

TutorialDataSnap.zip

Что это значит для пользователей Дельфи?

При компиляции NotificationPublisher.java выходят ошибки:

Compiling the Java service activity source files

warning: [options] bootstrap class path not set in conjunction with -source 1.7
src\NotificationPublisher\NotificationPublisher.java:12: error: package android.support.v4.app.NotificationCompat does not exist
import android.support.v4.app.NotificationCompat.Builder;
                                                ^
src\NotificationPublisher\NotificationPublisher.java:13: error: package android.support.v4.app does not exist
import android.support.v4.app.NotificationCompat;
                             ^
src\NotificationPublisher\NotificationPublisher.java:122: error: package NotificationCompat does not exist
    private  NotificationCompat.Builder buildNotification(String msgTitle, String msgText, String msgSound, PendingIntent contentIntent) {
                               ^
src\NotificationPublisher\NotificationPublisher.java:115: error: package NotificationCompat does not exist
        NotificationCompat.Builder builder = buildNotification(msgTitle, msgText, msgSound, PendingIntent.getActivity(context, i, newIntent, 134217728));
                          ^
src\NotificationPublisher\NotificationPublisher.java:124: error: cannot find symbol
        Builder mBuilder = new NotificationCompat.Builder(this.mContext);
        ^
  symbol:   class Builder
  location: class NotificationPublisher
src\NotificationPublisher\NotificationPublisher.java:124: error: package NotificationCompat does not exist
        Builder mBuilder = new NotificationCompat.Builder(this.mContext);
                                                 ^
src\NotificationPublisher\NotificationPublisher.java:130: error: package NotificationCompat does not exist
        mBuilder.setStyle(new NotificationCompat.BigTextStyle().bigText(msgText));
                                                ^
7 errors
1 warning

вот bat-файл для компиляции

@echo off

setlocal
 
if x%ANDROID% == x set ANDROID=C:\Users\Public\Documents\Embarcadero\Studio\19.0\PlatformSDKs\android-sdk-windows
set ANDROID_PLATFORM=%ANDROID%\platforms\android-27
set PROJ_DIR=%CD%
set VERBOSE=0

echo %ANDROID%
echo %ANDROID_PLATFORM%
echo %PROJ_DIR%
 
echo.
echo Compiling the Java service activity source files
echo.
mkdir output 2> nul
mkdir output\classes 2> nul
if x%VERBOSE% == x1 SET VERBOSE_FLAG=-verbose
javac -source 1.7 -target 1.7 %VERBOSE_FLAG% -Xlint:deprecation -cp %ANDROID_PLATFORM%\android.jar -d output\classes src\NotificationPublisher\NotificationPublisher.java
 
echo.
echo Creating jar containing the new classes
echo.
mkdir output\jar 2> nul
if x%VERBOSE% == x1 SET VERBOSE_FLAG=v
jar c%VERBOSE_FLAG%f output\jar\test_classes.jar -C output\classes com
 
echo.
echo Now we have the end result, which is output\jar\test_classes.jar
 
:Exit
 
pause
 
endlocal

PS. Ошибка была в том, что был неверен путь к ANDROID_SDK в bat-файле.

10 часов назад, AliZairov сказал:

FJVideoView.setBackgroundColor(TJColor.JavaClass.BLACK);

Используй вместо черного прозрачный цвет

function AlphaColorToJColor(const AColor: TAlphaColor): Integer;
begin
  Result := TJColor.JavaClass.argb(TAlphaColorRec(AColor).A, TAlphaColorRec(AColor).R, TAlphaColorRec(AColor).G, TAlphaColorRec(AColor).B)
end;

Как результат? Показывается реклама?

С помощью TotalComander посмотрите какие права на файл

Делать так:

TThread.Synchronize(TThread.CurrentThread, procedure
begin
  Label1.Text:=Значение;
end);

А Label лучше заменить на TText

При обрыве соединения и переподсоединении будет новый контекст

@Wovan2, после подключения клиента к серверу, занимаемая сервером память подскакивает до 1Гб

Как различать клиентов между собой? При каждом пакете клиенту сообщать свой уникальный номер?

2 минуты назад, Wovan2 сказал:

Пробовал и через BitmapListAnimation1.Enabled := true; Результат примерно такой же отображается первый кадр и все. Может через поток надо как-то это делать??? Блин по полдня надо тратить на тривиальные вещи

Значит вы блокируете основной поток, поэтому не видите изменений.

Буквально на днях на форуме в Токио советовали использовать BitmapListAnimation

Есть AniIndicator, но в Токио (а вы видимо используете его) он работает глючно. 

В 18.11.2017 в 21:38, Fedor K сказал:

сделал пример по работе с TCP сокетом с возможностью автоподключения (тык).

Почему-то отказывается компилироваться. Что не так?

TimerTimer(nil); - вот это что такое? Почему nil?

Вылеты происходят в FMX.Platform.Timer.Android когда связь с сервером не получилось установить... а почему, я не понял (не понял почему при первой попытке не удается связаться с сервером и не понял откуда вылеты).

PS Серверная часть нормально не закрывается, если были коннекты. Проверьте FormClose

Клиентская часть при старте выдает segmentaion fault, без подробностей.

apk-expansion.dex.jar - это что за файл? 

Пардон, оказалось что стоит Release-режим... 

В таймере 

 Server := 'Сервер ' + IdTCPClient.Socket.Binding.PeerIP +
           ':' + IntToStr(IdTCPClient.Socket.Binding.PeerPort);

вызывает ошибку, если клиент не достучался до сервера.

А проект скинуть нельзя? В pas довольно много компонентов... и не очень хочется собирать проект для тестирования

PS. Отступ в 1 пробел - это зло

4 минуты назад, Wovan2 сказал:

Подозреваю, что обеспечение стабильности связи займет больше кода, чем само приложение...

Так и есть

Проверил - отлично работает! Спасибо

PS. XCode 7.3.1, iPhoneSimulator9.3.sdk

Мне нужно в iOS. В XCode делается так:

    NSDictionary *dictionary = [NSDictionary dictionaryWithObjectsAndKeys:@"My User Agent 1.0", @"UserAgent", nil]; 
    [[NSUserDefaults standardUserDefaults] registerDefaults:dictionary];

Как перевести в Delphi?

Апну тему.

Как сменить юзерагент webbrowser-а?

12 часа назад, Akad сказал:

А можно узнать почему?

Из-за проблем с SSL... в маркет не пропускают