Jump to content

programmerdelphi2k

Members
  • Content Count

    53
  • Joined

  • Last visited

  • Days Won

    1

programmerdelphi2k last won the day on November 27

programmerdelphi2k had the most liked content!

Community Reputation

3 Neutral

Recent Profile Visitors

49 profile views
  1. look, I really dont know... On Debug console, I go in "Network", and see basically /topic_edit_submit.asp .... topic_edit.asp... and some line with "xxxxxx.js" then, when I click in a line, the Debug show the info that I sended to you unfortunatelly, I not a hacker... I'm losted :_) then, at least the basic I'm doing right?
  2. programmerdelphi2k

    Possible changes to string/char handling in Delphi 11(.2)?

    Apparently, we have a critic on duty pointing the finger towards infinity? Does the answer lie in your galaxy, in a hazy light-years of poor teratian mortals? I'm get out here... help help... the aliens are coming
  3. programmerdelphi2k

    Possible changes to string/char handling in Delphi 11(.2)?

    procedure TForm1.Button1Click(Sender: TObject); var MyAnsiString: AnsiString; MyText : string; begin MyAnsiString := { } '123' + { } chr(10) { appears, but not to eyes } + { } 'hello' + { } chr(0) { ... from forward will be losted!!! } + { } 'world' + { } chr(11200) + { } 'hi'; // MyText := ''; // for var C in MyAnsiString do MyText := MyText + ',"' + C + ' - Code: ' + Ord(C).ToString + '"'; // Memo1.Lines.DelimitedText := MyText.Remove(0, 1); end;
  4. programmerdelphi2k

    Possible changes to string/char handling in Delphi 11(.2)?

    "statistical timer"... your percents values is well defined!!! :)))
  5. programmerdelphi2k

    Possible changes to string/char handling in Delphi 11(.2)?

    I dont know very well about this "transliteration" occurring,... but, do you tryed use "AnsiString" instead "String" type? https://docwiki.embarcadero.com/Libraries/Alexandria/en/System.AnsiStrings I could see, too, that you're almost a statistical timer... 🙂
  6. programmerdelphi2k

    Find, Replace and Save

    NOTE: my procedure was compiled in 32bits, same that my MSWindows 10 is 64bits!
  7. programmerdelphi2k

    How to connect to wss:// server ?

    the error #11001 say about "timeout" on read try not? maybe if you increase this value, if there is any communication problem on your network and the internet (DNS lookup issue on your local network), / firewall, proxy, hosts file, etc... maybe, I dont know, for sure! look this about equal error in INDY: https://www.atozed.com/forums/thread-2250.html
  8. programmerdelphi2k

    Find, Replace and Save

    try use the this types: change "integer" by "int64" function MyMinValue(const A, B: int64): int64; begin result := A; // if (A > B) then result := B; end; procedure TForm1.Button1Click(Sender: TObject); var MyFileStreamSource: TFileStream; MyFileStreamTarget: TFileStream; MyFileSourceSize : int64; MyBuffer : TBytes; // array of byte; MyBufferSize : int64; MyBlockSize : int64; // 4096 (4K... or others) begin
  9. programmerdelphi2k

    Find, Replace and Save

    here my screenshots to prove that my code works: the copies was done in the same HDD: NOW USING EMBARCADERO ISO RAD 11.2 = +6GBytes MSWindows copy-file (by Explorer), time: +/- 4/5mins My (slow) procedure using TFileStream, time: +/- 10mins or more (I forgot see the clock at begin 🙂 (let's say: 15minutes for dont be wrong at all) CPU usage: < 10% at 3.8GHertz with all MSWindows apps on memory: antivirus, chrome, RAD 11.2, etc... MEM usage: < 4GB in sometime < yet
  10. programmerdelphi2k

    TStack<T>.Peek deeper than the topmost element

    sorry, but really I dont see it... fixing now!
  11. programmerdelphi2k

    TStack<T>.Peek deeper than the topmost element

    using "System.Generics.Collections" or "System.Contnrs"? uses // System.Contnrs; System.Generics.Collections; var MyStackList: TStack<TButton>; // MyStackList: TStack; procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin // System.Generics.Collections.pas MyStackList := TStack<TButton>.Create; try // MyStackList.TEnumerator ... // i := MyStackList.Count - 2; // before last if (i >= 0) then MyStackList.List[ ...i...] .Caption := 'hello world'; // // MyStackList.Push( buttonX ) // MyStackList.Pop; // MyStackList.Peek; // MyStackList.Count; // *************************// // System.Contnrs.pas; // MyStackList.AtLeast( n ) // MyStackList.Push() // add // MyStackList.Pop; //remove e return // MyStackList.Peek; // next on list, no remove // MyStackList.Count // how many finally MyStackList.Free; end; end;
  12. programmerdelphi2k

    Find, Replace and Save

    @robertjohns really, I dont know what to say for you... My PC have 16GBytes RAM, CPU i7 4770K Intel, HDD 1TBytes, Antitivirus online, RAD 11.2 Embarcadero, Chrome (hungry for mem)... The unique real problem is "the time"... because the tech is not the most indicated for this task!... (just compare with MSWindows copy-file... it's very so fast than my code) Another problem is: my code it's not "multi-tasks / multi-processor" then, of course, it's so slow for 5GBytes... but it's really does not matter for me, because I really dont use it for nothing here! it was just for show you something...
  13. programmerdelphi2k

    Find, Replace and Save

    my procedure works like expected! tested with file +5GBytes!!! RAD11.2 ISO file and tested if the same-file with profetional tool to compare it! the HASH file returns the equal values between "my copy" and ISO Embarcadero! On MSWindows 10 64bit, you need to pay attention to the buffer size, and not use too large a value. Well, a buffer larger than 16MBytes didn't show efficiency during the file copy, due to the way that MSWindows performs the cache during the data copy! Most likely, because MSWindows uses much more advanced techniques than my "simple code" presented here! After all, MSWindows is made by engineers, and I'm not one!
  14. programmerdelphi2k

    Error F2048 bad unit using wrong DCC32 in MSBUILD?

    I remove any new try, you dont merece any oneapparently the error is not only in your IDE, but also in your way of acting. I'm pulling out before this evil spreads across my screen
  15. programmerdelphi2k

    Find, Replace and Save

    try this: function MyMinValue(const A, B: integer): integer; begin result := A; // if (A > B) then result := B; end; procedure TForm1.Button1Click(Sender: TObject); var MyFileStreamSource: TFileStream; MyFileStreamTarget: TFileStream; MyFileSourceSize : int64; MyBuffer : TBytes; // array of byte; MyBufferSize : integer; begin // See on Help about more infos: fmOpenRead, fmCreate, fmShareExclusive, etc... // DeleteFile('d:\newfile.mp4'); // MyFileStreamSource := TFileStream.Create('d:\bohemian-rhapsody-queen-how-to-play-guitar.mp4', fmOpenRead or fmShareExclusive); try MyFileSourceSize := MyFileStreamSource.Size; MyBufferSize := MyMinValue(512, MyFileSourceSize); // SetLength(MyBuffer, MyBufferSize); // MyFileStreamTarget := TFileStream.Create('d:\newfile.mp4', fmCreate or fmShareExclusive); try MyFileStreamSource.Position := 0; // while (MyFileSourceSize > 0) do begin MyFileStreamSource.Read(MyBuffer[0], MyBufferSize); // read and put on the next position... // // what to do with MyBuffer values... // MyFileStreamTarget.Write(MyBuffer[0], MyBufferSize); // write and put on the next position... // Dec(MyFileSourceSize, MyBufferSize); // MyBufferSize := MyMinValue(512, MyFileSourceSize); // NOTE: verify this value, if ok .. end; finally MyFileStreamTarget.Free; end; finally MyFileStreamSource.Free; end; // ShowMessage('end'); end;
×