JohnLM

A few minutes after my post above, I made the discovery of the cause of slowness. Next, I will look into figuring out how to time the output speed in seconds or ms when I figure that out. I want to show that as part of a process time somewhere in the output window. Then, I can test the efficiency of various ideas. Anyway, to explain the slowness.. In this line below, in the inner for/loop, I was testing some values and forgot to remove those part(s) of code after inc(index); I REM them out as seen below, and the output is now instant. Those code fragments were two TStaticText controls that I was using to debug the index counts I was having trouble with. TStaticText displays values without interruption while TMemo updates in real-time during for/loops. If I use plain TEdit controls, then the updates display at the end of the TMemo updates. So, I don't use tedit's for this purpose during debugging real-time outputs. for row do. . for col do. . inc(index); //st1.Caption := inttostr(index); st2.Caption := inttostr(x); // col // row (I am going to branch this hex dump feature into another separate project--will call it HexdumpViewer or something--and will add some other interesting ideas to it. I have a few already and want to try them out soon.) I will look at your other ideas/suggestions, thanks.

Thank you for your positive feedback. I failed to mention and add another bullet, to describe the field values showing in the above-posted hex dump output, the values (AAAAA, BBBBB, CCCCC), this was the data I stored inside the dbgrid that I .SaveToStream and then copied all its content into the bufArray variable for processing. The one CON I see in this hex dump feature is that it is slow. The method I used to process and then update the memo control is quite slow, about 1.25 secs to go through a 1.3k to 1.5k byte array to show the hex dump data. This includes using the .beginupdate and .endupdate settings. In order to show a clean output, I am using several functions: PadZero(N: longint; Len: integer): string; -- show 0000, 0001, 0999, ... etc ByteToIntChar(b: byte): char; -- shows ascii 32..126 chars PadSpaceRt(s: string; Len: integer): string; -- aligns the ascii char pain The above gets processed in the inner for-loop: (for row do.., for col do..) But at least it works, and that is what matters.

Update on this project endeavor. . . RE: creating a Hex Dump feature - Reading stream data and converting to a hex-dump output. I finally managed to get this bare-bones of a hex-dump feature added to this test app as part of this project, where I am trying to figure out if it's possible to obtain the data behind or inside the memtable's stream and then be able to read/write back and forth data to the stream. I struggled with this output shown below. I had trouble understanding ASCII and printable chars based on raw data as seen below. I searched for several days on the ASCII code and Code Page and Unicode, and so on. To be honest, I still do not fully understand it all but I only wanted to get a display like the one shown below. 1 - 0015 through 1217 is the Byte position in row number format, in steps of 16 bytes into the stream and is representative of the size of the stream (from TMemTable), or strm.size; 2 - first line, and so on down the list, -- 41..00 is the conversion from Byte to Hex 3 - first line, and so on down the list, -- "ADBS...." is the char representation. 4 - the dots "." that you see are supposedly non-printable chars 5 - the TMemTable's is connected to a dbgrid. The grid has 4 fields: (IMS, ItemNo, Category, Vendor) - those fieldnames are showing in the hex dump below. This data is pulled from the memtabl's stream and processed. note: I did the best I could in the time frame I have currently in creating this feature. And, please don't expect it to follow any standard hex dump editor perfectly. I have not compared it to any of those as yet. But for something like this, its a first-time for me without blueprints or someone else's code. 0015: 41 44 42 53 10 00 00 00 06 02 00 00 FF 00 01 00 - ADBS............ 0031: 01 FF 02 FF 03 04 00 08 00 00 00 6D 00 65 00 6D - ...........m.e.m 0047: 00 31 00 05 00 08 00 00 00 6D 00 65 00 6D 00 31 - .1.......m.e.m.1 0063: 00 06 00 00 00 00 00 07 00 00 08 00 32 00 00 00 - ............2... 0079: 09 00 00 FF 0A FF 0B 04 00 06 00 00 00 49 00 4D - .............I.M 0095: 00 53 00 05 00 06 00 00 00 49 00 4D 00 53 00 0C - .S.......I.M.S.. 0111: 00 01 00 00 00 0E 00 0D 00 0F 00 01 10 00 01 11 - ................ 0127: 00 01 12 00 01 13 00 01 14 00 01 15 00 06 00 00 - ................ 0143: 00 49 00 4D 00 53 00 FE FF 0B 04 00 0C 00 00 00 - .I.M.S.......... 0159: 49 00 74 00 65 00 6D 00 4E 00 6F 00 05 00 0C 00 - I.t.e.m.N.o..... 0175: 00 00 49 00 74 00 65 00 6D 00 4E 00 6F 00 0C 00 - ..I.t.e.m.N.o... 0191: 02 00 00 00 0E 00 16 00 17 00 14 00 00 00 0F 00 - ................ 0207: 01 10 00 01 11 00 01 12 00 01 13 00 01 14 00 01 - ................ 0223: 15 00 0C 00 00 00 49 00 74 00 65 00 6D 00 4E 00 - ......I.t.e.m.N. 0239: 6F 00 18 00 14 00 00 00 FE FF 0B 04 00 10 00 00 - o............... 0255: 00 43 00 61 00 74 00 65 00 67 00 6F 00 72 00 79 - .C.a.t.e.g.o.r.y 0271: 00 05 00 10 00 00 00 43 00 61 00 74 00 65 00 67 - .......C.a.t.e.g 0287: 00 6F 00 72 00 79 00 0C 00 03 00 00 00 0E 00 16 - .o.r.y.......... 0303: 00 17 00 14 00 00 00 0F 00 01 10 00 01 11 00 01 - ................ 0319: 12 00 01 13 00 01 14 00 01 15 00 10 00 00 00 43 - ...............C 0335: 00 61 00 74 00 65 00 67 00 6F 00 72 00 79 00 18 - .a.t.e.g.o.r.y.. 0351: 00 14 00 00 00 FE FF 0B 04 00 0C 00 00 00 56 00 - ..............V. 0367: 65 00 6E 00 64 00 6F 00 72 00 05 00 0C 00 00 00 - e.n.d.o.r....... 0383: 56 00 65 00 6E 00 64 00 6F 00 72 00 0C 00 04 00 - V.e.n.d.o.r..... 0399: 00 00 0E 00 16 00 17 00 14 00 00 00 0F 00 01 10 - ................ 0415: 00 01 11 00 01 12 00 01 13 00 01 14 00 01 15 00 - ................ 0431: 0C 00 00 00 56 00 65 00 6E 00 64 00 6F 00 72 00 - ....V.e.n.d.o.r. 0447: 18 00 14 00 00 00 FE FE FF 19 FE FF 1A FE FF 1B - ................ 0463: FF 1C 1D 00 00 00 00 00 FF 1E 00 00 01 00 00 00 - ................ 0479: 01 00 05 00 00 00 41 41 41 41 41 02 00 05 00 00 - ......AAAAA..... 0495: 00 42 42 42 42 42 03 00 05 00 00 00 43 43 43 43 - .BBBBB......CCCC 0511: 43 FE FE FE FE FE FF 1F FE FF 20 21 00 02 00 00 - C........ !.... 0527: 00 FF 22 FE FE FE 0E 00 4D 00 61 00 6E 00 61 00 - ..".....M.a.n.a. 0543: 67 00 65 00 72 00 1E 00 55 00 70 00 64 00 61 00 - g.e.r...U.p.d.a. 0559: 74 00 65 00 73 00 52 00 65 00 67 00 69 00 73 00 - t.e.s.R.e.g.i.s. 0575: 74 00 72 00 79 00 12 00 54 00 61 00 62 00 6C 00 - t.r.y...T.a.b.l. 0591: 65 00 4C 00 69 00 73 00 74 00 0A 00 54 00 61 00 - e.L.i.s.t...T.a. 0607: 62 00 6C 00 65 00 08 00 4E 00 61 00 6D 00 65 00 - b.l.e...N.a.m.e. 0623: 14 00 53 00 6F 00 75 00 72 00 63 00 65 00 4E 00 - ..S.o.u.r.c.e.N. 0639: 61 00 6D 00 65 00 0A 00 54 00 61 00 62 00 49 00 - a.m.e...T.a.b.I. 0655: 44 00 24 00 45 00 6E 00 66 00 6F 00 72 00 63 00 - D.$.E.n.f.o.r.c. 0671: 65 00 43 00 6F 00 6E 00 73 00 74 00 72 00 61 00 - e.C.o.n.s.t.r.a. 0687: 69 00 6E 00 74 00 73 00 1E 00 4D 00 69 00 6E 00 - i.n.t.s...M.i.n. 0703: 69 00 6D 00 75 00 6D 00 43 00 61 00 70 00 61 00 - i.m.u.m.C.a.p.a. 0719: 63 00 69 00 74 00 79 00 18 00 43 00 68 00 65 00 - c.i.t.y...C.h.e. 0735: 63 00 6B 00 4E 00 6F 00 74 00 4E 00 75 00 6C 00 - c.k.N.o.t.N.u.l. 0751: 6C 00 14 00 43 00 6F 00 6C 00 75 00 6D 00 6E 00 - l...C.o.l.u.m.n. 0767: 4C 00 69 00 73 00 74 00 0C 00 43 00 6F 00 6C 00 - L.i.s.t...C.o.l. 0783: 75 00 6D 00 6E 00 10 00 53 00 6F 00 75 00 72 00 - u.m.n...S.o.u.r. 0799: 63 00 65 00 49 00 44 00 0E 00 64 00 74 00 49 00 - c.e.I.D...d.t.I. 0815: 6E 00 74 00 33 00 32 00 10 00 44 00 61 00 74 00 - n.t.3.2...D.a.t. 0831: 61 00 54 00 79 00 70 00 65 00 14 00 53 00 65 00 - a.T.y.p.e...S.e. 0847: 61 00 72 00 63 00 68 00 61 00 62 00 6C 00 65 00 - a.r.c.h.a.b.l.e. 0863: 12 00 41 00 6C 00 6C 00 6F 00 77 00 4E 00 75 00 - ..A.l.l.o.w.N.u. 0879: 6C 00 6C 00 08 00 42 00 61 00 73 00 65 00 14 00 - l.l...B.a.s.e... 0895: 4F 00 41 00 6C 00 6C 00 6F 00 77 00 4E 00 75 00 - O.A.l.l.o.w.N.u. 0911: 6C 00 6C 00 12 00 4F 00 49 00 6E 00 55 00 70 00 - l.l...O.I.n.U.p. 0927: 64 00 61 00 74 00 65 00 10 00 4F 00 49 00 6E 00 - d.a.t.e...O.I.n. 0943: 57 00 68 00 65 00 72 00 65 00 1A 00 4F 00 72 00 - W.h.e.r.e...O.r. 0959: 69 00 67 00 69 00 6E 00 43 00 6F 00 6C 00 4E 00 - i.g.i.n.C.o.l.N. 0975: 61 00 6D 00 65 00 18 00 64 00 74 00 41 00 6E 00 - a.m.e...d.t.A.n. 0991: 73 00 69 00 53 00 74 00 72 00 69 00 6E 00 67 00 - s.i.S.t.r.i.n.g. 1007: 08 00 53 00 69 00 7A 00 65 00 14 00 53 00 6F 00 - ..S.i.z.e...S.o. 1023: 75 00 72 00 63 00 65 00 53 00 69 00 7A 00 65 00 - u.r.c.e.S.i.z.e. 1039: 1C 00 43 00 6F 00 6E 00 73 00 74 00 72 00 61 00 - ..C.o.n.s.t.r.a. 1055: 69 00 6E 00 74 00 4C 00 69 00 73 00 74 00 10 00 - i.n.t.L.i.s.t... 1071: 56 00 69 00 65 00 77 00 4C 00 69 00 73 00 74 00 - V.i.e.w.L.i.s.t. 1087: 0E 00 52 00 6F 00 77 00 4C 00 69 00 73 00 74 00 - ..R.o.w.L.i.s.t. 1103: 06 00 52 00 6F 00 77 00 0A 00 52 00 6F 00 77 00 - ..R.o.w...R.o.w. 1119: 49 00 44 00 10 00 4F 00 72 00 69 00 67 00 69 00 - I.D...O.r.i.g.i. 1135: 6E 00 61 00 6C 00 18 00 52 00 65 00 6C 00 61 00 - n.a.l...R.e.l.a. 1151: 74 00 69 00 6F 00 6E 00 4C 00 69 00 73 00 74 00 - t.i.o.n.L.i.s.t. 1167: 1C 00 55 00 70 00 64 00 61 00 74 00 65 00 73 00 - ..U.p.d.a.t.e.s. 1183: 4A 00 6F 00 75 00 72 00 6E 00 61 00 6C 00 12 00 - J.o.u.r.n.a.l... 1199: 53 00 61 00 76 00 65 00 50 00 6F 00 69 00 6E 00 - S.a.v.e.P.o.i.n. 1215: 74 00 0E 00 43 00 68 00 61 00 6E 00 67 00 65 00 - t...C.h.a.n.g.e. 1217: 73 00 - s.

I had other questions but am pressed for time for work. But real quick. I see TMemoryStream has .Clear and TStream do not. Is there a similar way to clear streams when using TStream ? In this learning portion of streams and in the test app I am using in this topic, I have been using the following setup: var strm: TStream; // <-- memstrm: TMemoryStream; ... ... procedure tform1.FormCreate... begin strm: TMemoryStream.Create; // <-- memstrm: TMemoryStream.Create; end; ... procedure clearmem; begin MemStrm.clear; // reset to nothing and start over strm. ? // end; ... procedure TForm1.FormDestroy(Sender: TObject); begin strm.Free; memstrm.Free; end; TIA

Thanks Peter. You helped to clear up a few things. I remember you and a few others from TeamB from the days of old, back in the 90's/2000's, seeing your many replies. I always wondered about the origin of TeamB, you know, how it came to be and all. You guys were everywhere, at least in my Yahoo and Google searches in those days. I learned a lot and also forgot a lot, LOL. I had many personal life matters that took over my Turbo Pascal and Delphi hobbies and left me on many programming hiatuss over the years.

I was wondering if anyone knows how to completely turn off auto updates in windows 10. I have the HP Stream 14" 64bit, 4GB Ram, Intel Celeron N4020 laptop from Oct/2021. (Hint: I have removed the "S" part from Windows 10) (link https://www.walmart.com/ip/HP-14-PC-Laptop-Intel-Celeron-N4000-4GB-RAM-64GB-HD-Windows-10S-with-1-year-Office-365-Blue-14-cb171wm/803600781?from=/search) Currently, there is an update(s) in cache waiting for me to update-and-shut down, but I keep refusing it and choose sleep. Eventually, I will have to shut down for other reasons but I would like to turn off updates if possible, including the update in cache. I would like to use this for part-time coding in Delphi 11.2 since I have that already installed since 11/2023. TIA.

I usually work in low light and it gets a little difficult sometimes to see certain characters when using the dark theme for the IDE. (Some of the colored fonts like blue/red/green get fuzzy looking under my laptop's 1366x768 screesize) I thought it would be a quick and simple method of Ctrl+Wheel-up/down, but that did not work. Is there a quick shortcut to enlarge/decrease the font at will? TIA.

I want to delete many of my Messages on my Android phone, but I'd like to save the text someplace before I do that. Is there a way that I can save them? How would I do that? TIA

Sorry, I lost this topic and just found it. I meant, for Android, when you click on the Message [...] icon at the bottom, to type a text message to someone who's phone number you have. You enter their phone number to create a new contact if not already there, and you begin texting back and forth to that person in Messages. I want to copy all the messages in each contact that I have had text conversations with, but there is no Select-All, just Copy Text, where you have to long-press on a single message and a pop-up menu shows 'copy text' or 'copy to SIM card'. but it only copies that one text message, not all the messages. If I could select-all the text and copy it to the clipboard and then send that to my laptop via app-tethering, now that I have that working.

@stano - this works-thanks, if I shrink the left side pane area for the Object Inspector using the mouse, but I do have to play a bit with it every time I adjust it in order to see the - and + slider. I am still looking for a keyboard shortcut.

No overlay. I have the Dell Inspiron 5520 15R laptop. It is the one with the (home/pgup/pgdn/end) keys on the right side.

SPECS: Delphi 11.2, Galaxy S10+ phone (Android 12) (screen size is 6.4 inches) Issue: I want to change the view in the IDE to match my phone but the closest one is the 'Android 5" phone', and when I add componets on the form in that view, after compiling, the controls don't fit the screen and/or are sometimes off the view of the screen. In Delphi XE7, in the View's drop-down list, there is a custom setting option. I think I only used it once for a tablet years ago, but could not figure it all out and gave up. However, in 11.2, there is no listing for custom. So, I was wondering if there are downloadable views, or does the developer has to figure it out manually by eye/try. I've been searching around but cannot find any answers. TIA.

update. . . regarding the pixel dimensions for the screen size. It appears that the 567x1008 pixels is correct for that Galaxy S10+ Android phone. And, it is 390x520 on the Galaxy A10 Android phone. Now I can move forward in this project. Thanks for all the help/tips/etc., thus far.

Nope. Does not work on my laptop, no "Num" key here. I also tried Ctrl+ and Ctrl- and still does not work.

Hi. To bad that is not available in the Professional version.

Okay, I finally figured out the code and where to insert it so that it sends a screenshot of my device (my phone) to my laptop. Now to update the Photowall mobile app to include a TLayout and copy all its controls over to it and then do a screenshot and see how that looks through the PhotoWallVLC app on my laptop.

I think its because I believe the the 412x869 dimensions are not true. When I send a photo to my windows machine, the dimensions are very large. I am trying to determine the exact x,y pixels of my device, and its been truely deceptive and annoying. At this moment: * I am trying to figure out how to take a screenshot of my current display--I figure out that part: put a tlayout componet on the form and use layout1.MakeScreenshot;** * I am also trying to re-work the Photowall mobile app to send the bitmap from .MakeScreenshot via stream. But the snippet I updated/edited is not working. The image is not showing in the PhotoWallVCL app on my laptop computer (with the uppdated/edited code in the mobile app). If I REM out the code, it works. So I am in the middle of debugging that portion of code now. ** but I'm not sure how to use tlayout. I've never used it. I assume that whatever components (buttons/edits/etc) I add to it, that when I call .MakeScreenshot it will capture the whole current viewport of the device, whatever is displaying on it. But the problem is, none of the controls are sticking to the tlayout control. That is, none of the controls are bound to it, that if I click and drag the layout1 control, all the controls (buttons/edits/etc) should move with it--but they don't.

The above idea did not work out as planned. I did not take into account the camera's photo dimensions. The capture-to-clipboard image was 567x1008 pixels. I believe that I have to capture the form's image instead. That may work. I will try that next, as soon as I return.

Okay, I think I know what I can do. 1. I can use the 'Photowall' app, take a picture of a black background (lay the phone face-down) take a photo, and send that to the Photowall app in Windows via app-tethering. 2. update the windows photowall app to capture the bitmap to the clipboard 3. paste that into windows paint 4. edit the image somehow to remove most of the black area (or make it white) and leave a 2 to 4 pixel black edge around the whole dimension. 5. save that to png 6. open in delphi ide, device manager and update the custom view with this new image. I'll call it Galaxy S10+ 7. finish

In Delphi 11.2, I found it under Tools\Options\Form Designer\Device manager and I played around in it, but under the field, [Device Background] I could not find an image to use, so it failed to complete without that field being filled in. I believe my Galaxy S10+ pixel display view is 412x869 - per this link https://yesviz.com/devices/s10+/

specs: window 7 64bit, delphi 11.2, phone s10+ with android 12 I've been wanting to ask this question for some time and an opportunity came to me and I'm now asking... I would like to send text from my galaxy s10+ phone to my laptop over wifi, and back, from my laptop to Android over wifi. I want to type some text, a word, or a whole paragraph, and send it. Are there any demos or how-tos for this? I searched my sample folders but did not find anything. Also, I do not want to use a USB cable, nor do I want to join/use any outside services from other sources. I don't want to download any apps, register, and all that. I want this to be strictly private and only from my two devices. TIA

update #2 on App Tethering process. . . I have not found a good resource that goes through all the steps to build an app tethering project from a beginner's point of view. All the ones I did find and tried to follow were too advanced for me. I could not follow. Instead, I had to read many different resources found through Google searches and those on Embarcadero's websites and try different things. The notes below are what I have accomplished so far. Later, I will follow up with the steps and code of how to build a working app tethering project for sending: TEXT, PARAGRAPH, and a PHOTO between devices. History so far. . . I ended up rebuilding as a new project from scratch, piece by piece, compiling in Windows, then compiling as Android, multiple times while observing that the Android version continued to work. And once I reached the point where the Android was able to receive TEXT from my laptop, I knew I had it working. By then, I was getting confused about what does what and so on, and so the project became a mess, all-be-it a working mess. Then, I wanted to be able to send TEXT back and forth between the two devices, the laptop, and the Android phone. Another day's coding mess now turned into a shameful mess of spaghetti and still trying to remember what each part of the code does. And now I need to add and update the spaghetti code to be able to send a paragraph (or memo) of TEXT between devices. But at this time, I do not know how to, but I will figure it out soon. Then, I want to figure out how to send an image photo between each device. To be able to do all three will be great.

update on App Tethering process. . . After a week or so of more searching and trial/error attempts, I managed to finally get one project to work, found via google search. I can send a text to another vcl app in windows. However, when I compile the Client side project for mobile instead, I get the following error: [PAClient Error] Error: E7688 Unable to execute ..and at the bottom of the list of error messages, I see that it also says "Circular Reference..." on the last line. I am not sure what that means let alone, how to resolve it.

Update on compiling the PhotoWall app under Delphi 11.2 Alexandria for mobile. . . Success!! (The reason I could not compile the mobile portion was because my phone still had the compiled version (from XE7) and I did not uninstall it) I was able to finally compile the mobile portion to my phone and app-tether a live photo from it and sent it to my computer laptop. * folder -> C:\Users\Public\Documents\Embarcadero\Studio\22.0\Samples\Object Pascal\RTL\Tethering\PhotoWall * Must remember to turn on wifi on the phone and the computer/laptop in order for app-tethering to work. 2nd edit: I forgot to mention that I renamed the "MobilePhotoApp" to "MobilePhotoApp_D11_FMX_w7" and that was how I had success and no error message like the above-posted image shows.

Delphi XE7 / 11.2, Windows 7, tablets(Android 4.4.) and phones (Android 11 and 12) I am searching around but have not found the answer. I am looking for obtaining the IP address of all my devices, but I want to do it through code. I would like to test different ideas around with sending plain Text and Stream data to all my devices. I have a several laptops, tablets and mobile phones (android). Is this possible? TIA.