Jump to content

Yaron

Members
 View Profile  See their activity

  • Content Count

    286

  • Joined

  • Last visited

  • Days Won

    2

Everything posted by Yaron

  1. Yaron
    To give me the largest work-space, I designed the Delphi IDE UI to look like the attached "delphi_before.jpg". However, under some conditions, windows throws apps a resize event (e.g. when turning on a secondary monitor), and then the Delphi IDE UI automatically changes to the attached "delphi_after.jpg" (the tool-bar drops down a row). Is there any way to lock the UI so my preferred layout remains fixed? P.S. This is on Win7 64bit.
  2. Yaron
    This is a bit old, but I've been blocking the windows screen-saver for media playback in every version of windows since 1999. I'm actually handling several actions, first I capture the WM_POWERBROADCAST message in the form: procedure WMPOWERBROADCAST(var M : TMessage); message WM_POWERBROADCAST; const PBT_APMQUERYSUSPEND = $0000; PBT_APMQUERYSTANDBY = $0001; PBT_APMQUERYSUSPENDFAILED = $0002; PBT_APMQUERYSTANDBYFAILED = $0003; PBT_APMSUSPEND = $0004; PBT_APMSTANDBY = $0005; PBT_APMRESUMECRITICAL = $0006; PBT_APMRESUMESUSPEND = $0007; PBT_APMRESUMESTANDBY = $0008; PBT_APMBATTERYLOW = $0009; PBT_APMPOWERSTATUSCHANGE = $000A; PBT_APMOEMEVENT = $000B; PBT_APMRESUMEAUTOMATIC = $0012; begin Inherited; Case M.WParam of PBT_APMQUERYSUSPEND, PBT_APMSUSPEND : Begin If SystemSuspended = False then Begin SystemSuspended := True; End; End; PBT_APMRESUMEAUTOMATIC : Begin SystemSuspended := False; End; End; M.Result := Integer(True); end; Then on WinMsg (Application.OnMessage := WinMsg;) I do: procedure TMainForm.WinMsg(var Msg: TMsg; var Handled: Boolean); var ModWnd : HWnd; I : Integer; mPos : TPoint; begin If (Msg.Message = SC_SCREENSAVE) or (Msg.Message = SC_MONITORPOWER) then Begin Msg.wParam := 0; Msg.Message := SC_Move; Handled := True; End else If (Msg.Message = WM_SYSCOMMAND) then Begin Case Msg.WPARAM of SC_MONITORPOWER, SC_SCREENSAVE : Begin Msg.wParam := 0; Msg.Message := SC_Move; Handled := True; End; End; End; End; Then on WndProc ( procedure WndProc(var Msg : TMessage); override;) : Hope this helps.
  3. Yaron
    Took your advice and created a QC report: https://quality.embarcadero.com/browse/RSP-26253
  4. Yaron
    It's not an issue restoring the IDE, just a little drag on that line, but it happens about once or twice every day which is a bit annoying.
  5. Yaron
    Using Delphi 10.3.2: I use the function below to send HTML eMails through Amazon SES using Indy. However, no matter what I tried, non-latin characters appear as "�" (for example, instead of "Oriënt Express", gMail displays "Ori�nt Express"). I need to be able to include non-latin characters in both the subject and the eMail's HTML body, what am I doing wrong? P.S. Not sure if it matters, but the HTML does contain "<meta charset="UTF-8">" in the "<HEAD>" block and I verified the source was properly encoded by saving it to a local utf8 html file which displays the encoded characters correctly. procedure SendEmailIndy( const SMTPServer: string; const SMTPPort: integer; const SMTPUserName : string; const SMTPPassword : string; const FromName, FromAddress: string; const ToAddresses: string; //comma "," separated list of e-mail addresses const CCAddresses: string; //comma "," separated list of e-mail addresses const BCCAddresses: string; //comma "," separated list of e-mail addresses const Subject: string; const EmailBody: string; const IsBodyHtml: Boolean; //verses Plain Text const Attachments: TStrings; UseTLS : Boolean); var smtp: TIdSMTP; // IdSmtp.pas TLSHandler : TIdSSLIOHandlerSocketOpenSSL; // TLS support msg: TidMessage; // IdMessage.pas builder: TIdCustomMessageBuilder; //IdMessageBuilder.pas s: string; emailAddress: string; begin TLSHandler := nil; msg := TidMessage.Create(nil); msg.ContentType := 'text/html'; msg.CharSet := 'UTF-8'; msg.ContentTransferEncoding := '8bit'; try if IsBodyHtml then begin builder := TIdMessageBuilderHtml.Create; TIdMessageBuilderHtml(builder).Html.Text := EmailBody; end else begin builder := TIdMessageBuilderPlain.Create; end; try Try if Attachments <> nil then for s in Attachments do builder.Attachments.Add(s); builder.FillMessage(msg); Except on E : Exception do {$IFDEF TRACEDEBUG}AddDebugEntry('Exception : '+E.Message){$ENDIF}; End; finally builder.Free; end; msg.From.Name := FromName; msg.From.Address := FromAddress; msg.Subject := Subject; //If the message is plaintext then we must fill the body outside of the PlainText email builder. //(the PlainTextBuilder is unable to build plaintext e-mail) if not IsBodyHtml then msg.Body.Text := EmailBody; for s in ToAddresses.Split([',']) do begin emailAddress := Trim(s); if emailAddress <> '' then begin with msg.recipients.Add do begin //Name := '<Name of recipient>'; Address := emailAddress; end; end; end; for s in CCAddresses.Split([',']) do begin emailAddress := Trim(s); if emailAddress <> '' then msg.CCList.Add.Address := emailAddress; end; for s in BCCAddresses.Split([',']) do begin emailAddress := Trim(s); if emailAddress <> '' then msg.BccList.Add.Address := emailAddress; end; smtp := TIdSMTP.Create(nil); try smtp.Host := SMTPServer; smtp.Port := SMTPPort; smtp.Username := SMTPUserName; smtp.Password := SMTPPassword; If UseTLS = True then Begin TLSHandler := TIdSSLIOHandlerSocketOpenSSL.Create; smtp.IOHandler := TLSHandler; smtp.UseTLS := TIdUseTLS.utUseRequireTLS; End; Try smtp.Connect; try try smtp.Send(msg) Except on E : Exception do {$IFDEF TRACEDEBUG}AddDebugEntry('SMTP Send Exception : '+E.Message){$ENDIF}; End; finally smtp.Disconnect; end; Except on E : Exception do {$IFDEF TRACEDEBUG}AddDebugEntry('SMTP Connect Exception : '+E.Message){$ENDIF}; End; finally smtp.Free; If TLSHandler <> nil then TLSHandler.Free; end; finally msg.Free; end; end;
  6. Yaron
    Nevermind, I figured it out, I had to move the charset code after setting the email body.
  7. Yaron
    Another bit of information, when looking at the headers of the delivered email, there's this: Content-Type: text/html; charset=us-ascii Even though CharSet is set to UTF8. According at this post https://stackoverflow.com/questions/9844250/not-able-to-send-utf-8-email-using-delphi-indy , I'm setting the parameters in the right order.
  8. Yaron
    If I try to use UTF8Encode in Delphi 10.3 I get a warning "[dcc32 Warning] xxx.pas(683): W1057 Implicit string cast from 'RawByteString' to 'string'".
  9. Yaron
    I am having a really weird issue with Firebird SQL 3.0.4, I have two servers, one local which I use for development and one production, both are running the exact same version of Firebird, using the same "firebird.conf" configuration file. On my production server, if I enter Hebrew text (e.g. "בדיקה"), I get "?????" in the DB. However, it works just fine on my development server. On my development server, if I enter German umlauts (e.g. "äöü"), I get "???" in the DB. However, it works just fine on my production server. Things I tried: 1. I verified the text sent to the DB is valid (appears correctly in UTF8 encoded log files). 2. I file-compared "firebird.conf" on both production and development server and they are identical. 3. I tried using this Firebird SQL command to reset the collation "alter character set utf8 set default collation unicode_ci_ai;". 4. Adding 'CharacterSet=utf8' to my connection params (full connection code below). 5. If I use DBeaver to view the database structure, I see all the "varchar" columns have a "charset" set to "NONE". dbMain := TFDConnection.Create(nil); with dbMain.Params do Begin Add('DriverID=FB'); Add('Server=localhost'); Add('Database=c:\DB\myDB.FDB'); Add('User_Name=SYSDBA'); Add('CharacterSet=utf8'); Add('Password=my_password'); end; dbMain.Open; Any ideas?
  10. Yaron

    Firebird SQL 3.0.4 content encoding issue

    Yaron replied to Yaron's topic in Databases

    Just to conclude, after scouring the internet to find an elegant solution, I eventually had to brute-force it by creating new columns using this command : ALTER TABLE [TableName] ADD [NewColumnName] VARCHAR(100) CHARACTER SET UTF8; Then I used DBeaver's "Copy" & "Advanced Paste" to copy over the string data from the old columns to the new columns. I had to do this for approximately 10 tables with a combined total of around 60 columns. The whole process took about 1.5-2 hours.
  11. Yaron

    Firebird SQL 3.0.4 content encoding issue

    Yaron replied to Yaron's topic in Databases

    I think I figured it out, when I created the DB using DBeaver, it simply created all columns with a CHARSET of "NONE". Now I'm trying to figure out a way to automate the conversion from NONE to UTF8 as there doesn't seem to be any straight-forward way of making it happen.
  12. Yaron
    Using "with" can clean up the code to make it easier to read, but ever since the dawn of Delphi, it had a severe downside that "with" hinders debugging. You can't simply hover with the mouse cursor over a variable to get its value or use evaluate/modify on the variable itself without having to copy & paste the record/class name first. And now I've encountered a more recent issue with refactoring. If you use refactoring to rename a variable inside a record, it will miss any instances where the record was used with a "with" statement. Will this ever be improved? If not, what are your recommendations?
  13. Yaron
    I am using MARS as a back-end for a Web Application (processing post/get requests from HTML forms and outputting HTML based on the form input). I am currently deploying MARS as an IIS module DLL simply because I already have an IIS7.5 server installed and I wanted the free SSL security that comes with this type of setup. However, I had one instance where I was getting a "500" error from IIS and the only way to resolve it was to restart the application pool. Assuming my code is bug-free, what is the most reliable and best performance (for concurrent usage by multiple users) method to deploy MARS with SSL on a windows machine?
  14. Yaron

    With's the deal with "With"?

    Yaron replied to Yaron's topic in Delphi IDE and APIs

    I'm aware of past discussion with regards to debugging, I was just not aware that it also broke refactoring which is why I started the topic. Was there ever an official reply on an intent to resolve some of these issues?
  15. Yaron

    The 9 Hints in MARS

    Yaron replied to Yaron's topic in MARS-Curiosity REST Library

    I did, but it will get overwritten the next time I pull the code to get the latest version...
  16. Yaron
    Any chance you can make a tutorial video showing your preferred deployment method?
  17. Yaron
    We all knew it would come this August, but now the Google Play store is showing warning notifications on new uploads: And to top it off, there's a new warning that I have no idea how to address (if it's even possible) with Delphi:
  18. Yaron
    Thank you Peter & Remy, I wasn't aware that TCanvas was sharing resources, the D7 documentation on lock/unlock refers to use lock to prevent other threads from writing to the canvas, but since my code wasn't accessing the canvas from outside the thread, I didn't think locking was mandatory. I have now changed the code to lock all 3 canvases outside the thread loop. Sherlock: It's funny how one person's confusing syntax is exactly the opposite for another person, I hate using "not" in any boolean check because for me it's confusing with logical (bitwise) operators. John Kouraklis I'm not sure what you mean. I use "csThumbRenderer" TCriticalSection in a try/finally block to copy over the contents of TBitmaps from the main thread. I use the same critical section in the main thread as well when accessing these bitmaps, so there should be no case where the bitmaps are used concurrently by more than one thread.
  19. Yaron
    I am trying to upload an image from an html form (see below) to a MARS server. Previously, I was able to get this working when the client was written in Delphi, but now the client is a standard browser and the code fails (LParam.isFile returns false). HTML form: <form method="post"> <input type="text" name="ImageName" required><br> <input type="file" accept="image/jpeg" name="ImageFile" required> </form> The code I used to get the image that doesn't seem to work in this case : var lParam : TFormParam; mStream : TMemoryStream; begin For lParam in aParams do Begin If (SameText(lParam.FieldName, 'ImageFile')) then Begin If (LParam.isFile) then Begin mStream := TMemoryStream.Create; mStream.Write(lParam.AsFile.Bytes,Length(lParam.AsFile.Bytes)); mStream.Position := 0; Try mStream.SaveToFile('d:\test.jpg'); Finally mStream.Free; End; End; End; end; Any ideas?
  20. Yaron

    Image from Form has no value

    Yaron replied to Yaron's topic in MARS-Curiosity REST Library

    I believe that I solved this issue, I was missing enctype="multipart/form-data" in the form's statement.
  21. Yaron
    Is there a way to shorten the URL required to access the MARS server? What I did so far was to modify FEngine.AddApplication('DefaultApp', '/v', [ 'Server.Resources.*']); in "Server.Ignition". Ideally, I would like to eliminate the "/rest" and application name entirely, so the entry point would be whatever I define in [Path('')].
  22. Yaron
    For reasons I don't understand, the issue in the screenshot occasionally shows up. Then, when an exception is raised or when I place breakpoints, it causes them to trigger/show on the wrong line of code. Any idea how to resolve this issue?
  23. Yaron
    Yep, that did it, thank you.
  24. Yaron
    I am writing a server using MARS with the client being a web browser (e.g. firefox) sending form data to the server. I don't want every user to be able to access the form, so I need to implement a login/authentication system. The authentication demo code I've seen ('MARS-Repository\MARS\Demos\Authorization\') seems to require using MARS client-code, which I don't think is possible if the client is a web browser. Do I need to write my own authentication code or is there some way I can leverage MARS's authentication code for this purpose?
  25. Yaron
    Is there documentation on how to use MARS to embed data in a cookie and retrieve it on subsequent calls? And of course, any additional sample code would be a blessing.
×