Jump to content


  • Content Count

  • Joined

  • Last visited

  • Days Won


sh17 last won the day on November 15 2020

sh17 had the most liked content!

Community Reputation

21 Excellent

Technical Information

  • Delphi-Version
    Delphi 10.4 Sydney

Recent Profile Visitors

646 profile views
  1. new reporte issue on this [RSP-33962] F2084 Interner Fehler: AV0D803420(0D7E0000)-R54626454-0 - Embarcadero Technologies
  2. sh17

    swagger help needed

    I'm in the same situation right now. There's no Delphi client generator for Swagger? Damn it.
  3. https://github.com/DelphiPraxis/DDevExtensions/releases/tag/v2.87 compiled pre-release, not fully tested yet
  4. @jbg do you manage pull requests? Otherwise we can centralize development here. https://github.com/DelphiPraxis/DDevExtensions
  5. sh17

    LibPhonenumber Delphi-wrapper

    the according Visual Studio project will come shortly I still have to prepare it, it looks a bit wild. technical it uses https://github.com/3F/DllExport
  6. In case someone wants to use the LibPhonenumber library from Google in Delphi. I've written a wrapper for the C # port of this library. Support for 32 bit and 64 bit. https://github.com/landrix/LibPhonenumber-for-Delphi
  7. sh17

    Sending email and compose via Outlook

    Yes, definitely in Office 365.
  8. sh17

    Sending email and compose via Outlook

    Not very different TMailOutlook = class(TObject) private const olMailItem = $00000000; private class function HaveActiveOleObject(const ClassName: string): boolean; public class procedure Execute(const _To,_ToCC,_ToBCC,_Subject,_Body,_Attachment : String); end; { TMailOutlook } class procedure TMailOutlook.Execute(const _To, _ToCC, _ToBCC, _Subject, _Body,_Attachment: String); var Outlook: OleVariant; MailV: Variant; begin if not HaveActiveOleObject('Outlook.Application') then Outlook := CreateOleObject('Outlook.Application') else Outlook:= GetActiveOleObject('Outlook.Application'); MailV := Outlook.CreateItem(olMailItem); if (_To <> '') then MailV.To := _To; if (_ToBCC <> '') then MailV.BCC:= _ToBCC; if (_ToCC <> '') then MailV.CC:= _ToCC; MailV.Subject := _Subject; MailV.Body := _Body; if _Attachment <> '' then if FileExists(_Attachment) then MailV.Attachments.Add(_Attachment); MailV.Display; end; //// Want to Bypass exception so we check this without using the activex unit class function TMailOutlook.HaveActiveOleObject( const ClassName: string): boolean; var ClassID: TCLSID; Unknown: IUnknown; oleresult: HResult; begin ClassID := ProgIDToClassID(ClassName); oleResult:= GetActiveObject(ClassID, nil, Unknown); result:= Succeeded(oleResult); end;
  9. sh17

    Drag and Drop Component Suite for Delphi 10.4 Sydney

    I updated the repository.
  10. sh17

    CalDavServer and Client

    I've been looking for a long time. There is no Delphi CalDAV server component. SabreDAV seems to be the best basis to develop your own server. Or as the basis for a port.
  11. sh17

    CalDavServer and Client

    There is no CalDAV server implementation for Delphi. A good base is https://sabre.io/dav/ I don't know how complex a port to Delphi is. CalDAV Clients come from https://www.tmssoftware.com/site/cloudpack.asp and https://www.sync-components.com/dav-delphi-components/caldav
  12. sh17

    Delphi 10.3.3 - Indy - could not load root certificate

    patch available http://blog.marcocantu.com/blog/2020-january-rad1033-indyssl-patch.html?utm_source=feedburner&utm_medium=feed&utm_campaign=Feed%3A+marcocantublog+(marcocantu.blog)
  13. not very handy, to many clicks, sry
  14. Is there a way to place the button above? I have to scroll down each time to make the button visible. Very annoying on a big screen.
  15. https://www.facebook.com/groups/137012246341854/search/?query=delphipraxis&epa=SEARCH_BOX https://www.facebook.com/groups/DelphiDevelopers/search/?query=delphipraxis&epa=SEARCH_BOX