Jump to content

A.M. Hoornweg

Members
  • Content Count

    473
  • Joined

  • Last visited

  • Days Won

    9

Everything posted by A.M. Hoornweg

  1. A.M. Hoornweg

    New encodings in editor?

    Oh, so it just switches the "display mode" of the editor, it does not save the units themselves in the format indicated ?
  2. Can I call this structured diff viewer with command line arguments? I want to integrate it as an external diff viewer in tortoiseSVN ... Also, the menu item "help->user manual" does nothing...
  3. A.M. Hoornweg

    Windows 10 will randomly terminate the application

    "Event type=Bex" --> Buffer overflow exception. Most likely, the data written into a block of memory exceeds its size. There are tools to track down such errors (like Eurekalog, FastMM4 etc).
  4. Hello all, does anyone else have the issue that a TImage containing a JPG does not re-size when the form is dragged to a screen with a different resolution? The weird thing: This only happens when the contained picture is a *.JPG. If the picture is a BMP or PNG then it *does* work OK. See attached image: The property "Stretch" is set to True in all 3 cases. (Edit) compiler version is Delphi 11.1 Alexandria.
  5. A.M. Hoornweg

    TImage (JPG) not scaling, but PNG and BMP DO ???

    OK, this is getting even weirder. I've placed a tTimer on the form plus an event handler to display the size of the 3 images. The size of the bitmap is 78x98 pixels in all 3 cases. procedure TForm25.check(img: timage; lbl: tlabel; fmt:String); begin lbl.Caption:=format('%s %d x %d',[fmt, img.Width, img.height]); end; procedure TForm25.Timer1Timer(Sender: TObject); begin check (image1,label1,'JPG'); check (image2,label2,'BMP'); check (image3,label3,'PNG'); end; Now look what happens if I drag the form to a high-resolution screen (250% zoom). The tImage having the JPG did not resize but claims to have done so anyway. The tImage with the BMP scaled correctly but still returns the unscaled size. And finally, the tImage with the PNG scaled correctly and returns the scaled size.
  6. Hello all, this question isn't strictly Delphi related but rather Windows 11 / VMWare Workstation related. I develop under Windows 10 X64 in a VMWare virtual machine. I'd like to migrate this VM to Windows 11 but there are a few things that currently make this unfeasible IMHO: - before adding a virtual TPM module, VMWare insists on encrypting all virtual hard drives (*.vmdk files) of the VM. - The encryption key contains information of the host machine. The drives will only decrypt on the same host machine. - So if my notebook dies, I'm basically scr##ed because the VM won't run anywhere else. That's totally unacceptible to me. The whole purpose of virtualization is having virtual hardware so the VM's are independent of the host hardware and its life span. A backup of a VM shouldn't be worthless if my hardware breaks! I currently have VM's that were created on at least 3 different machines and they still run fine, thanks to a vmx entry uuid.action= "keep" that tells VMWare to maintain the machine identity even if the VM is moved to a different machine. So... What gives? Is there a viable workaround for this problem? I know about the undocumented managedvm.autoAddVTPM="software" vmx entry but let me warn you, that has dire side effects: instead of encrypting the vmdk files as a whole it will just encrypt the header area of the vmdk files. That is even worse because you can't undo it - the decryption password isn't revealed. And it's not documented if this header encryption is machine dependent or not.
  7. Hello all, The delphi 11.1 VCL has some subtle internal changes in high-dpi behavior with respect to version 11.0. I would like to detect in code if the compiler in use is 11.1 or higher. Is there any possibility to do that?
  8. No, "{assuming unicode string}" -> 1 char is 2 bytes so I'm actualy testing for 8. OP stated "Usually, the token is part of a larger string being parsed." So I assumed OP wanted to do a quick lookup in a token dictionary to figure out if there are any entries starting with that substring in the actual dictionary.
  9. You could make the "key" in your tokendictionary a UInt64 instead of a string, but you'd also have to check that your strings have a minimum length of 8 bytes or else you'll get an access violation. Type pUint64=^Unit64; {assuming unicode string} if (fTokenLength >= 4) then if not fTokenDictionary.TryGetValue(pUint64(@Tokenstart)^,result) then ...
  10. A.M. Hoornweg

    Debug ISAPI on Windows 11

    Yes, but the behavior might not be 100% identical because IIRC in DLL projects some things are not allowed in the initialization and finalization sections of units. But having said that, I usually test like this as well. A plain vanilla executable is the easiest to debug.
  11. A.M. Hoornweg

    Debug ISAPI on Windows 11

    I believe it is, but there are simpler ways. IIS is not the only web server that can run ISAPI's. For debugging ISAPI's I personally use Aprelium's Abyss X2 web server. This can run as a normal executable and it comes in an x64 and x86 flavor. In the Delphi IDE I simply specify this program as the host process for my DLL.
  12. A.M. Hoornweg

    virtual printer sdk

    Please specify more clearly what you're looking for. Something that sends print output to a file? PDF maybe?
  13. OK, this took me some time to figure out, but it is actually possible: - Put a tDateTimePicker on your form - Set property "Kind" to "dtkDateTime" - Set property "Format" to "dd/MM/yyyy HH:mm:ss" (the capitalization of MM and HH is important!) -Setting the tDateTime is easy, just use property datetime. -Use the following routine to GET the tDatetime. Function ExtractDateTime(Picker:tDateTimePicker) :tDatetime; var buf:pWideChar; LastBlank,i,len:integer; Text,TimePart:string; begin len:=picker.GetTextLen+1; buf:=Stralloc(len); picker.GetTextBuf(buf,len); Text:=buf; strdispose(buf); LastBlank:=length(Text); for i:=length(Text) downto 1 do begin if Text[i]=' ' then begin LastBlank:=i; break; end; end; TimePart:=Copy(Text, LastBlank+1, length(Text)); result:=picker.Date+strtotime(TimePart); end;
  14. A.M. Hoornweg

    How to use tDateTimePicker for BOTH date and time

    Duh. It looks like we got bitten by visual form inheritance. The tDatetimepicker is on a base tForm that is inherited from. This base form is perfectly OK but I see in an inherited DFM that "tDateTimePicker.Kind" is reverted to dtkDate. I can't explain how this happened.
  15. A.M. Hoornweg

    How to use tDateTimePicker for BOTH date and time

    That's very weird. My system behaves differently and so does a colleague's computer. The problem has been plaguing us for some time. I'll dig into this.
  16. A.M. Hoornweg

    How to use tDateTimePicker for BOTH date and time

    Simply reading property "datetime" fails in Alexandria if property "kind" is set to dtkDateTime. All manual changes in hh:mm:ss are completely ignored.
  17. A.M. Hoornweg

    docwiki.embarcadero.com is not working

    Maybe these servers were outsourced to a country now suddenly under embargo and Idera has been locked out ?
  18. A.M. Hoornweg

    docwiki.embarcadero.com is not working

    No it is not. Guys, just take a look at the PHP exception trace. More specifically, the line that reads "LoadBalancer->getConnection(0,Array,false)", that's where the shit hits the fan. That line triggers a "connection refused" exception. One of the servers which the load balancer can choose from in this array is inaccessible. Not all of them are inaccessible because when you press F5 often enough in your browser the load balancer will sooner or later hit one that works. So this is a simple web site management issue. The person in charge should simply remove broken db servers from the list which the load balancer uses to choose from. So... Why the heck does Idera not manage this properly?
  19. How long has it been now that the docwiki is dysfunctional, one week? Two? The site will only work once in five attempts or so, all the other attempts show an error log saying the database backend can't be reached. There's some kind of load balancer in front that doesn't know which of the servers behind it is actually working and which is not.... The end result is like Russian Roulette ! @Embarcadero: Guys, this is how not to do load balancing. At least make sure your load balancer knows which servers actually work!
  20. A.M. Hoornweg

    DocWiki.Embarcadero.com does Russian Roulette.

    I was hoping to save some time by finding out if an existing class is suitable for my needs. More specifically, I wanted to know if tStringbuilder has functionality to use it as a fifo buffer.
  21. A.M. Hoornweg

    DocWiki.Embarcadero.com does Russian Roulette.

    Breaking a production system in the process of releasing something is simply not done. One first gets the new system ready, only then is the old one taken offline. A two weeks outage is dramatic with respect to the perceived reliability of a company. (edit - typo)
  22. Hello World, I'm trying to debug some dpi-awareness problems in an application of mine (using Delphi 11 on a Windows 10 X64 VM). I have a 3-screen setup with different scaling factors for testing (from left to right: 300%, 100% and 175%). I test dpi awareness by dragging my main form between these screens. Most of the time the re-scaling kinda works (albeit slow), but sometimes things get wonky and I wanted to know why. This main form of mine is a rather complex one and it needs some time to redraw when the screen DPI changes. I'm trying to reduce that amount of time but in this case the VCL components themselves are kinda sluggish. For diagnostic purposes I have overridden the method tForm.DoAfterMonitorDpiChanged() to output some debugging information and the outcome puzzles me. procedure tMyForm.DoAfterMonitorDpiChanged(OldDPI, NewDPI: Integer); begin inherited; OutputDebugString(Pchar(Format('Currentppi / Pixelsperinch %d / %d',[currentppi, pixelsperinch]))); end; Most of the time the values of CurrentPPI and PixelsPerInch are identical and reflect the value of the screen where the form was dragged to, but occasionally they go out of sync. When that happens, one of the two contains the DPI of the new screen where I moved the form, whilst the other one reflects the dpi of the screen where the form used to be. This happens especially if the dragging was "fast". When I look into the source code of unit vcl.forms, I see that the developer usually sets both properties to the same value. So I assume this behaviour to be a bug. Also, I fail to understand why tForm needs both these properties if they are intended to always be the same value. Unfortunately I can't consult the on-line help because https://docwiki.embarcadero.com has been down since yesterday. Can anyone shed some light to this, and maybe try to reproduce the behavior?
  23. Thanks. I have stumbled upon a ton of bugs in dpi-awareness so far but I haven't had the time yet to report them to QC because that usually requires test cases. Another subtle one: If you use tScrollbox, you need to set tScrollbox.Vertscrollbar.Position to zero before a DPI change, otherwise some components on the tScrollbox may become unreachable after the scaling (the ones near the top).
×