Quantcast
Channel: Embarcadero Community - Embarcadero Community
Viewing all 3212 articles
Browse latest View live

I want to ask about develop ios/android with Delphi

$
0
0

Dear Sir :

       I am not experience of ios/android apps, but I am a Delphi 5 developer now , and want to be a beginner ios/android developer and "try to" develop some apps to sell , how can I get software to develop for cheap Delphi price ? or I can only buy a enterrise verion?

   ps. I am a personal user not a company.


installing UPDATE 2 error

$
0
0

unable to install the UPDATE 2 for BORLAND DEVELOPER STUDIO 2006 ENTERPRISE EDITION The install wizard shows a quick error message box  that says    Setup cannot continue.  This is Update 2 setup for Borland Developer Studio 2006 Enteprise Edition. Please cancel this and install Edition of Update 2.   and a OK button to click. does anyone know what/where i can find the correct update? jim

Push Notification in app close

$
0
0

I am using the following script to the client. Push notifications work with the application open but not closed ... The correct use will be closed with the application ...

Thank's....

unit UClient;

interface

uses

System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,

FMX.Layouts, FMX.Memo, PushNotification, JSON, Androidapi.Helpers, IdIOHandler,

IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IPPeerCLient, REST.OpenSSL,

REST.Backend.BindSource, REST.Backend.PushDevice, REST.Backend.ParseProvider, REST.Backend.ParsePushDevice,

REST.Backend.ParseServices, REST.Backend.KinveyProvider, REST.Backend.ServiceComponents, REST.Backend.ServiceTypes,

REST.Backend.MetaTypes, REST.Backend.PushTypes, REST.Backend.KinveyPushDevice,

System.IOUtils, System.Devices, IdServerIOHandler;

type

TForm1 = class(TForm)

ToolBar1: TToolBar;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

Label1: TLabel;

Memo1: TMemo;

KinveyProvider1: TKinveyProvider;

procedure SpeedButton1Click(Sender: TObject);

procedure OnChange(Sender: TObject; Achange: TPushService.Tchanges);

procedure SpeedButton2Click(Sender: TObject);

procedure OnReceiveNotificationEvent(Sender: TObject; const ANotification: TPushServiceNotification);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses

{$ifdef IOS}

FMX.PushNotification.IOS

{$else}

FMX.PushNotification.Android;

{$endif}

var

APushService : TPushService;

AServiceConnection : TPushServiceConnection;

{$R *.fmx}

procedure TForm1.OnReceiveNotificationEvent(Sender: TObject;

const ANotification: TPushServiceNotification);

begin

Memo1.Lines.Add('Data Key = '+ANotification.DataKey);

Memo1.Lines.Add('JSON = '+ANotification.Json.ToString);

Memo1.Lines.Add('Data Objetct = '+ANotification.DataObject.ToString);

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

var

ADeviceID, ADeviceToken : String;

begin

APushService := TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.GCM);

{$ifdef ANDROID}

APushService.AppProps[TPushService.TAppPropNames.GCMAppID] := 'ID MY GCM';

{$endif}

AServiceConnection := TPushServiceConnection.Create(APushService);

AServiceConnection.Active := True;

AServiceConnection.OnChange := OnChange;

AServiceConnection.OnReceiveNotification := OnReceiveNotificationEvent;

ADeviceID := APushService.DeviceIDValue[TPushService.TDeviceIDNames.DeviceID];

ADeviceToken := APushService.DeviceTokenValue[TPushService.TDeviceTokenNames.DeviceToken];

// Insert memo

Memo1.Lines.Add('Device ID = '+ADeviceID);

Memo1.Lines.Add('Device Token = '+ADeviceToken);

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

Memo1.Lines.Clear;

end;

procedure TForm1.OnChange(Sender: TObject; Achange: TPushService.Tchanges);

begin

Memo1.Lines.Add('OnChange');

end;

end.

Conversion of UUID from PostgreSQL to strings

$
0
0

I am using PostgreSQL for a database application, and I have been trying to use both PgDAC (devart) and FireDAC as delivered with Delphi 10.1 Berlin.  When I use PgDAC, everything works nicely.  Using FireDAC, things get strange. The UUID fields are not converted into strings the same way as they are in PgDAC (and other tools, such as Database Workbench).  The byte order seems to be flipped, and querying with the saved string representation (idString := guidField.AsString) of the original UUID gets me no results at all.  Have anybody else experienced this, and is there a solution other than using PgDAC?

how to set the cursor in the text editor so that it is at the end of the line

$
0
0

ples  how to set the cursor in the text editor so that it is at the end of the line

Using Tparam to pass parameters to an SQL statement

$
0
0

I am new to Delphi and FireDAC.  Could anybody answer why the following code generates an err at runtime:

  //  Change state name procedure

TFRM_States.btnChangeStateClick(Sender: TObject);

var  SQL: string; 

SQLParams: TParams;

begin  lbStateActions.Items.Add( 'Updated: ' + ed_StateCode.Text ); 

SQLParams.CreateParam( ftString, 'StateCode', ptInput ); 

SQLParams.CreateParam( ftString, 'StateName', ptInput ); 

SQLParams.ParamByName( 'StateCode' ).AsString := QuotedStr( ed_StateCode.Text ); 

SQLParams.ParamByName( 'StateName' ).AsString := QuotedStr( ed_StateName.Text ); 

SQL := 'UPDATE STATES SET NAME = :StateName WHERE STATE = :StateCode'; 

DM_ClientDB.FDC_ClientDB.ExecSQL( SQL ); 

RefreshDataset( DM_ClientDB.DS_ClientDB.DataSet );

end;

How to record video?

$
0
0

 

I need to RECORD quality video -- just displaying it is not enough.  (So please don't point me to the "Video" topic in the help... been there, done that, need more.)

I'm trying to RECORD a video from within my app.  My app is collecting data from live (Bluetooth LE) sensors and I need to record synchronized video to correlate with the sensor recording.  I'm not particularly picky about the codec or file format it gets stored in... I can deal with whatever the local OS thinks is "native" per device.

Ideally, I'd like to just give it a filename and say, "Start"... but I suspect it will be much harder than that, if it's even possible at all.

Obviously most all phones can take pretty high quality video... but how can I allow that from within my Delphi App while simultaneously collecting sensor data?

Thanks in advance for any ideas or suggestions.

 

    --Rhett

 

Since my computer updated windows 10 i get the following error for interbase

$
0
0

Exception EIBinterBaseError in module Machine.exe at 0029E367

I/O error for file "C:\ProgramData\Application Data\Embarcadero\Interbase\gds_admin.ib"

Error while trying to open file

The system cannot find the file specified..

 

I checked to file is there


SEATTLE 10 IDE

$
0
0

Seattle 10   IDE  Project Manager  STRUCTURE view is blank. How to fix?                                                                                                   thanks Khan                                                                                         

Multi-Device Application Types

$
0
0

I am using Seattle Professional and would like to move an application to a multi-device environment.  When I select File/New/Multi-Device Application I only get Blank Application and 3D Application.  Why is this?  All documentation shows Multi-Device Application types that include: Header/Footer, Header/Footer with Navigation, Master-Detail, Tabbed and Tabbed with Navigation.

I accept that all of the missing types can be made from the Blank Application but am I missing something?

 

How to load library dependencies (newer commons-lang) when registering Generic JDBC connections in Rapid SQL?

$
0
0

Hi all,

I'm trying to connect Rapid SQL to my "database" (A Denodo server).

I need to create a Generic JDBC connection and use the Denodo driver, which has dependencies with Apache Commons-Lang 2.6.

Here are the different scenarios I've found:

1. On the Generic JDBC config dialog, if under Driver Archives I choose the driver with the dependencies (the JAR includes commons-lang-2.6.jar) the connection doesn't work, as Rapid SQL can't find an implementation for the commons-lang-2.6 classes (seems like it's ignoring the loaded library)

2. If in Driver Archives I add the two JARs separately (the driver and the right version of commons-lang) I get the same behavior.

3. If I replace the commons-lang-2.2.jar from the Rapid SQL classpath and add the 2.6, the connection works fine.

 

 

Is there a way to set this up so I don't have to tamper with the classpath of all of our Rapid SQL installations?

 

Thanks in advance,

Ruben

Speech input via SAPI 5.4 and TSpInProcRecoContext Problem

$
0
0

Hello there,

I am trying to use the SAPI 5.4 language input.
I have integrated SAPI 5.4 into the IDE and try to receive TSpInProcRecoContext input via the Micro.
According to MS I have to drag the micro or audio in via token and connect to SpInProcRecoContext. I fail at the handover, but why?
Can someone help me?

..

 SpInProcRecoContext1: TSpInProcRecoContext;
    SpObjectToken1: TSpObjectToken;

...

     SpVoice: Variant;
     objAudioTokenCategory : TSpObjectTokenCategory ;
     objAudioToken,
     objEngineToken,
     objProfileToken : ISpeechObjectToken;
     function startVoice: Integer;
     function stopVoice: Integer;
...


//------------------------------------------------------------------------------
// start voice
function TDM_Voice.startVoice: Integer;
var
  MyTokenCategory: WideString;
begin
  try
    SpInProcRecoContext1.EventInterests := SREAllEvents;


    MyTokenCategory := 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\AudioInput'; // SpeechCategoryAudioIn

    objAudioTokenCategory := TSpObjectTokenCategory.Create(Nil) ;
    objAudioTokenCategory.SetId(MyTokenCategory , false);

    objAudioToken := ISpeechObjectToken(objAudioTokenCategory.DefaultInterface);
    objAudioToken.SetId(objAudioTokenCategory.Default, MyTokenCategory, false);

    try
      MyTokenCategory := 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\Recognizers'; // SpeechCategoryRecognizers
      objAudioTokenCategory.SetId(MyTokenCategory , false);
    except
      on E: Exception do begin // OLE-Fehler 80045002 > schon vorhanden also kein Fehler
        Logdatent_Schreiben('Fehler in StartVoice Fehler:' +E.Message);
      end;
    end;
    objEngineToken := ISpeechObjectToken(objAudioTokenCategory.DefaultInterface);
    objEngineToken.SetId(objAudioTokenCategory.Default, MyTokenCategory, false);

    try
      MyTokenCategory := 'HKEY_CURRENT_USER\SOFTWARE\Microsoft\Speech\RecoProfiles'; // SpeechCategoryRecoProfiles
      objAudioTokenCategory.SetId(MyTokenCategory , false);
    except
      on E: Exception do begin // OLE-Fehler 80045002 > already exists so no error
        Logdatent_Schreiben('Fehler in StartVoice Fehler:' +E.Message);
      end;
    end;
    objProfileToken := ISpeechObjectToken(objAudioTokenCategory.DefaultInterface);
    objProfileToken.SetId(objAudioTokenCategory.Default, MyTokenCategory, false);

    SpInProcRecoContext1.Recognizer.AudioInput := objAudioToken; // Error wrong Parameter Whey ????
    SpInProcRecoContext1.Recognizer.Profile := objProfileToken;
    SpInProcRecoContext1.Recognizer.CreateRecoContext;

    SpInProcRecoContext1.Connect;

    Logdatent_Schreiben('Starte Voice');
  except
    on E: Exception do begin
      Logdatent_Schreiben('Fehler in StartVoice Fehler:' +E.Message);
    end;
  end;
end;

 

I still found this:

https://msdn.microsoft.com/en-us/library/ee125184(v=vs.85).aspx

How do I implement it in Pascal?

TIdThreadComponent Crash on android

$
0
0

On my application (i use DXE7), I use TIdTCPClient to receive messages from TIdTCPServer (VCL Application) when I put idthreadcomponent1.active:=true, the application works fine on windows, but it crashes on android(5.1.1)

Procedure TF_RestMain.SetConnectClientCmd();

begin

if RestCM.ServInfos.AcceptNotifServ then

BEGIN     WorkingLBL.Text:='Connecton ...';//Label  

with RestCM do   

Try if IdTCPClient1.Connected then   

        IdTCPClient1.Disconnect;    

       IdTCPClient1.Port:=ServInfos.ServPort+1;    

        IdTCPClient1.Host:=ServInfos.HostAddr;  

      IdTCPClient1.Connect;   

Except raise    End;

END;  

procedure TRestCM.IdTCPClient1Connected(Sender: TObject);

Begin //HERE CRASH WITHOUT ERROR MESSAGE

IdThreadComponent1.Active := true;

end;

procedure TRestCM.IdThreadComponent1Run(Sender: TIdThreadComponent);

var FMsg:string;

begin

FMsg:=  IdTCPClient1.IOHandler.ReadLn();

if FMsg[1]'%' then F_RestMain.AddNotification (FMsg);

end;

PAServer can't work

$
0
0

Hi, I has C++ builer Berlin installed in my computer. This days, I update C++ builder to RAD Studio because I need Delphi. But after installed RAD Studio the PAServer can't connect any more. I get "ElnvalidPointer:Invalid pointer operation" message when I press "Test Connection" Button. I can't connect to Win64 PC or MAC OSX. All I get is ElnvalidPointer. How can I solve this issue? Thanks Eric  

why ReportMemoryLeaksOnShutdown := True reports memory leak on all edits-based components (Edit, Memo, ListBox, etc...)

$
0
0

hi all,

 

im testing many components by Embarcadero, using just RAD Studio XE10.2 Tokyo (none another suite components)

and

ALMOST ALL COMPONENTS edit-based in Edit strings ornumeric

where we can "to edit" strings, as EDIT, MEMO, LISTBOX, EDIT for numeric, DateEdit, etc... 

where using ReportMemoryLeaksOnShutdown := True (in View Source, DPR unit) to catch any memory leaks on terminate one app with ONLY ONE "TFORM" FIREMONKEY and any component above create in DesingTime, for example, show that occurred one "memory leaks" in app ended?

In Marcu Cantu blog, show as end this abnormal fact, but... why e when will be solved?

 

How tested?  

0-  one new Application Firemonkey running in Win32 platform

1- just one TForm, as expected

2- any component edit-based 

3- runnig in Debug or not mode

 

Note: the msg is showed only if the component exist in the tform, if you can delete the component of the form, the msg goes down, same the unit stay in clause "uses"

note: in my tests, just call "CheckSynchronize()"  in any unit with section "Finalization" solve this anomaly.

 

note: excuse for my english


TNetHTTPClient - using certificates

$
0
0

I am not sure where to go to get some examples on how to use this component using certificates.

It is getting really hard to learn new things if I don't have examples of "HOW TO".

Anyone? Anyone?

Reinstallation of the Delphi Starter

$
0
0

I have got the serial number for Delphi 10.2 Tokyo Starter and have installed this product on the computer. In several days I needed to reinstall a product (on the same computer). I uninstalled it and then have tried to install again. But in the course of installation I have received the message "Operation error-> A problem occured during the process". It has occurred right after the screen "Downloading-> Delphi Common Files Starter". All subsequent attempts have yielded the same result. Advise as to me to solve this problem.

Transfer Delphi XE8 licence to my new computer

$
0
0

Dear Embarcadero,

How do I transfer Delphi XE8 licence to my new computer?

Thanks in advance,

Richard Thomissen

Vestamatic GmbH

email: richard.thomissen@vestamatic.com

bcbie250.bpl package for RAD Studio 10.2 IDE

$
0
0

I am migrating legacy code from Codegear C++Builder2007, which had a Tool Palette category of Internet with the TCppWebBrowser component, to C++Builder 10.2, which does not have this category or the component in any other category.  On the EDN forum, I was told to install the relevant package (bcbie250.bpl) into the IDE.  Where do I download this?  I have searched Embarcadero and did not anything.  Thanks.

Bill

 

Can't compile for Android

$
0
0

Hi,

I can't compile for Android anymore. 

Just fully reinstalled the latest SDK and NDK, updated everything in RAD Studio Berlin 10.1 SDK Manager, it founds everything, all command lines and paths are correct in the SDK Manager.

Still, when I compile for Android, it almost immediately stops with 

[Exec Error] The command "PATH C:\Program Files (x86)\Java\jdk1.6.0_26\bin;C:\RAD Studio\bin;y:\Documents\Embarcadero\Studio\18.0\Bpl;C:\RAD Studio\bin64;y:\Documents\Embarcadero\Studio\18.0\Bpl\Win64;C:\ProgramData\Oracle\Java\javapath;C:\RAD Studio\Projects\BPL;C:\RAD Studio\Projects\BPL\Win64;C:\RAD Studio\AddOns\TsiLang\Units\Packages;C:\CBuilder\AddOns\TsiLang\Units\ERS 2010\Packages;C:\CBuilder\AddOns\TsiLang\Units\Packages;C:\CBuilder\bin;C:\CBuilder\Projects\BPL;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\WINDOWS\System32\WindowsPowerShell\v1.0\;C:\Program Files (x86)\Common Files\ACD Systems\EN;C:\Program Files (x86)\Common Files\ACD Systems;C:\Program Files (x86)\Calibre\;C:\CBuilder\AddOns\TMS\bpl\;C:\RAD Studio\AddOns\TMS\bpl\;C:\RAD Studio\Android Project\SDK\tools;C:\RAD Studio\Android Project\SDK\platform-tools;C:\RAD Studio\Android Project\apache-ant\bin;C:\Program Files (x86)\QuickTime\QTSystem\;C:\Program Files (x86)\Git\cmd;C:\Program Files (x86)\Windows Kits\10\Windows Performance Toolkit\;C:\RAD Studio\AddOns\TMS\Aurelius\Bin;C:\Users\Public\Documents\Embarcadero\Studio\18.0\Bpl;C:\RAD Studio\BPL;%USERPROFILE%\AppData\Local\Microsoft\WindowsApps; & "Y:\Documents\Embarcadero\Studio\SDKs\Android\android-sdk-windows\build-tools\24.0.3\dx.bat" --dex --output="C:\Prov\Android\Debug\classes.dex" "c:\rad studio\lib\Android\Debug\android-support-v4.dex.jar" "c:\rad studio\lib\Android\Debug\cloud-messaging.dex.jar" "c:\rad studio\lib\Android\Debug\fmx.dex.jar" "c:\rad studio\lib\Android\Debug\google-analytics-v2.dex.jar" "c:\rad studio\lib\Android\Debug\google-play-billing.dex.jar" "c:\rad studio\lib\Android\Debug\google-play-licensing.dex.jar" "c:\rad studio\lib\Android\Debug\google-play-services.dex.jar" " exited with code 1.

 

Any idea?

I tried with a single form and 1 button, no way.

Thanks for any help.

Steve

Viewing all 3212 articles
Browse latest View live


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>