

limelect
Members-
Content Count
937 -
Joined
-
Last visited
-
Days Won
1
Everything posted by limelect
-
@mvanrijnen I am using FileInfo.TimeStamp where FileInfo: TSearchRec and >>> DateTimeToStr(FileInfo.TimeStamp)); >>> this to tree > to DB your knoledge ?
-
Well i will explain what I do and tel me that I am worng. I take FILE date time and put it in a DB. I guess every country has its format. (so I do not care) Then I SQL (search DB grid) Date. Thats it. why do I need this when I do not know where program will be used? function StrToDate(const S: string; const AFormatSettings: TFormatSettings): TDateTime;
-
@Fr0sT.Brutal Yes as my original question this answer it. FDQuery2.SQL.Add('WHERE {fn CONVERT(MyDateTime,DATE)}=:MyDate');
-
@mvanrijnen @Fr0sT.BrutalWhat is your suggestion then?. I know of the date problem month before day The above date is just for the test. However, in the real world DATE TIME will be stored in a database and taken from there. Is there any problem? you think?
-
@Josep Thanks it gave me a lead It is FDQuery2.SQL.Add('WHERE {fn CONVERT(MyDateTime,DATE)}=:MyDate');
-
@Josep No, it did not work D10.2.3 FDQuery2.SQL.Add('WHERE cast(MyDateTime As Date) =:MyDate'); FDQuery2.SQL.Add('ORDER BY MyDateTime'); //=''03/10/2021'''); FDQuery2.Params.ParamByName('MyDate').AsDate := StrToDate('03/10/2021'); I also tried ('MyDate').AsDateTime
-
Working with D10.2.3 I made a NEW TOPIC !! Start FMX project with nothing !!! JUST FORM !!! Run. Phone Android S21 " cannot attach to lwp 14777 no such process (3) exiting" changing <uses-sdk android:minSdkVersion="26" android:targetSdkVersion="26" /> to 26 did not help Now what? Any suggestions? Obviously, I am stack P.S I return C:\Users\Public\Documents\Embarcadero\Studio\19.0\CatalogRepository\AndroidNDK-9c_19.0.27659.1188\platforms\android-14 from 19 Now I got "class segmention fault (11)" I took off all uses except FMX.Forms still "cannot attach... " Guies be careful not to rely on Delphi 10.2 . I do not know what about above that. Luckily I have Android Studio
-
@Dalija Prasnikar S21 ultra is the most advanced Samsung phone on the market. If every phone I have to spend top $$$ to keep Embarcadero alive. This is not good. I am NOT going to change Delphi every time a new Android phone is out there. I am a private company that does not spend money as if I am Microsoft. I use Android Studio too without any problem except that after over 30 years I prefer Delphi IDE. Android Studio IDE is bad. But the choice between spending top $$$ just to be updated sorry I do not agree. So my next Android project will be Android Studio with all the sorrow of it. As I have no other choise. P.S can I download a command line compiler so I will compile a project up to date?
-
Last comment for your knowledge. APK's done with Android Studio workes on Samsung S21 without any problems. Delphi is great for Windows. I will still use it there.
-
Working with D10.2.3 (and plz do not sell me a new Delphi). My Android application worked up to my Samsung S6. Now I have a new phone Galaxy 21 and my application does not start. !. I made sure I have API 26. 2. I changed AndroidManifest.template.xml to <uses-sdk android:minSdkVersion="26" android:targetSdkVersion="26" /> 3. To make sure my application is OK i changed minSdk=14 build and run on S3!!! it is OK 4. Build and run application and made sure all my AndroidManifest.template.xml have 26. 5 still after running, I get " cannot attach to lwp 16457 no such process (3) exiting" Any help?
-
It will be my next resort In the meantime, I check some of my old programs on Android studio also there I found problems but fixing some As I have a large number of projects on both IDE. So it takes time Thanks any how
-
Still a problem but On the option, I changed the NDK to the max platform. It was 14 now it is 19 C:\Users\Public\Documents\Embarcadero\Studio\19.0\CatalogRepository\AndroidNDK-9c_19.0.27659.1188\platforms\android-19 So now I get "class segmentation fault (11)" problem Any advice on how to debug this?
-
@Pat Foley The program loads to the phone. See the icon see splash and program stops Does not even start form create
-
@Lars Fosdal How to do that "for the rights to access the API before use?" I think I checked all things. Like making sure I have the API 26 Checked min and max SDK OR I suspect that I do not use API 26 C:\Users\Public\Documents\Embarcadero\Studio\19.0\CatalogRepository\AndroidSDK-2433_19.0.27659.1188 Android 8.0.0 (API 26) is installed here I can see C:\Users\Public\Documents\Embarcadero\Studio\19.0\CatalogRepository\ platform 22 26 27 29 are installed So what else have I to do to ensure I am using 26?
-
I did this program out of necessity I have hundreds of projects, big or small, that I needed to document. Some of you will not need this program some mite. It documents all the projects in a database. It started simple but got bigger and bigger. I am loading the help file if anyone wants to know more. the link http://limelect.com/downloads/document-projects/ there you will find a lot of goodies for free. I hope it is bug-free. But if need plz email me the comments. Thanks Document_Project.chm
-
SORRYYYYYYYYYYYY redownload project I fix the directory left in dir
-
I have an RTE file which at the end has 3 bytes 02 00 00 Using FDTable with SQLite FDConnection1.ExecSQL('CREATE TABLE IF NOT EXISTS Projects (MyDateTime DateTime,ProjectName TEXT,ProjectrealName TEXT,Category TEXT NULL,Description TEXT NULL,FilesIndex INTEGER)'); Description TEXT NULL =TEXT First, try ProjectsFDTable.FieldByName(',Description').AsString := MY RTE TEXT ProjectsFDTable.Post; ProjectsFDTable.Refresh; Last 3 bytes get deleted !!! Can I use it as a string????????? Second try as a BLOB Description BLOB NULL =BLOB var BlobField:TBlobField; Stream : TStream ; Stream := TStream.Create; <<<<<<<<< I do not free the stream BlobField := ProjectsFDTable.FieldByName('Description') as TBlobField; Stream := ProjectsFDTable.CreateBlobStream(BlobField, bmWrite); xxxx.SaveToStream(Stream); ProjectsFDTable.Post; ProjectsFDTable.Refresh; After Refresh I can see the stream has changed to the data size as needed. BUT NO DATA IN Description field !!!!! closing the application and looking at the database no description data. I did not manipulate the field let Delphi do the work
-
Do not know why. It was easier on my head. No reason to be perfect. Looking at my source ProjectsFDTable.FieldByName('Description').AsString; has NO BLOB D10.2.3
-
@Lars Fosdal You did not read carefully the problem !!! since RTE file which at the end has 3 bytes 02 00 00 The database truncate !!! those bytes when using string You have to use a blob. You can reload the data a string which from which I use it as a stream s := ProjectsFDTable.FieldByName('Description').AsString; St := TStringStream.Create(S); It all comes to this component >>>> AdvRichEditor
-
@Lars Fosdal Thanks. All the source is in the question. I thought I was very clear with the problem. In any case, it took me a while but I fixed it. The answer is xxxx.SaveToStream(S); TBlobField(ProjectsFDTable.FieldByName('Description')).LoadFromStream(S); Thanks in any case
-
Thank you everybody for your kind help. Can someone open a site, not for novices? Even professionals need sometime help
-
I have done this many times. This time it does not work I have 2 components FDConnection1 and FilesFDTable (FDTable) >>> SQLite first, I do this >>> FDConnection1 active. procedure TForm1.FDConnection1AfterConnect(Sender: TObject); begin FDConnection1.ExecSQL('CREATE TABLE IF NOT EXISTS Files (SectionsId INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL,Files BLOB NULL)'); FilesFDTable.TableName:='Files'; FilesFDTable.Active:=True; end; I put here all my tries too. Non worked I got NULL no save procedure TForm1.SaveTreeToBlob(Tree: TTreeView); var // MS: TMemoryStream; BlobField:TBlobField; Stream : TStream ; begin //MS := TMemoryStream.Create; BlobField := FilesFDTable.FieldByName('Files') as TBlobField; try // Tree.SaveToStream(MS); // MS.Position := 0; FilesFDTable.Insert; Stream := FilesFDTable.CreateBlobStream(BlobField, bmWrite); Tree.SaveToStream(Stream); // Stream.Write(ms,ms.Size); FilesFDTable.Post; FilesFDTable.Refresh; FilesFDTable.Close;// Active:=False; FilesFDTable.Active:=True; finally // MS.Free; // Stream.Free; end; end; No errors just output NULL or my DATABASE READER DOES NOT SEE THE BLOB?Thanks
-
Thanks every one 30+ years of Delphi did not teach me everything
-
I did not understand blob as binary cant i put any format as strigns or else? strings in stream?
-
@Bill Meyer i used your link to develop my own as strings instead procedure SaveTreeviewToString(tv: TTreeview; Sl: TStringlist); var node: TTreeNode; s:string; begin Assert(Assigned(tv)); try node := tv.Items[0]; while node <> nil do if node.CheckState=csChecked then begin s:=''; s:=s+'#'+inttostr(node.level); s:=s+'#'+(node.Text); Sl.Add(s); node := node.GetNext; end; finally end; end; procedure LoadTreeviewFromFile(tv: TTreeview; Sl: TStringlist); var node: TTreeNode; level,i,x,x2: Integer; s,s1,s2:string; begin try tv.Items.Clear; try node := nil; for i:=0 to sl.Count-1 do begin s:=Sl; x:=PosEx('#',s,1); x2:=PosEx('#',s,x+1); s1:=copy(s,x+1,x2-(x+1)); s2:=copy(s,x2+1,length(s)); level := strtoint(s1); if node = nil then {create root node, ignore its level} node := tv.Items.Add(nil, '') else begin if level = node.level then node := tv.Items.Add(node, '') else if level > node.level then node := tv.Items.AddChild(node, '') else begin while Assigned(node) and (level < node.level) do node := node.Parent; node := tv.Items.Add(node, ''); end; end; node.Text := s2; end; finally end; finally end; end;