bazzer747

HI, Thanks Stano and Haley, you are both right (as was Uwe). I was auto-creating the form at startup. I've shifted it to the right in Project Options so it only gets created when the button is first pressed. The form isn't too big so loading times aren't an issue, but probably good practice. Thanks to all.

Fixed!!! How simple .... How did this get set to visible = true anyway, I wonder. Many thanks ... I'd trawled though the Properties but that never occurred to me.

Hi, I'm reading in a large file which I'm scraping from a website into a text file and am having a problem with surnames like O'Donnell and O'Brian. The input text for names like these show in the text like 'O'Donnell' - characters O' for the apostrophe. These surnames need to match an existing table of usernames but won't unless I replace O' with an apostrophe. I'm trying this code to do this: if AnsiContainsText( cLast, ''' ) // cLast holds surname 'O'Donnell' then AnsiReplaceStr( cLast, ''', '' ); So replacing ' with and apostrophe. This isn't working. When I debug the first line recognises the characters ' but the second line replaces nothing. Any thoughts on why this isn't working (or a better way to do this would be appreciated.

Thank you all. yes, missed that it was a function so this code: if AnsiContainsText( cLast, ''' ) then cLast:= AnsiReplaceStr( cLast, ''', chr(39) ); Now works as expected and returns O'Donovan which is what matches the name in the existing table. (and of course, will manage other similar names). Lars - that was just an empty string there, I just wanted to remove the characters at that stage.

if Grd.IndexFieldNames = Column.FieldName then fGrd.IndexFieldNames:= Column.FieldName + ':D' else Grd.IndexFieldNames:= Column.FieldName; end; ..The :D reverses the sort.

Hi, I'm using Delphi 10.4. When I set a debug point in my code it works fine. However, there are times when I'm in debug mode that I don't want my code to stop at that debug point so I remove it and press F9 to continue. If the debig point is, say, at the end; of a loop the app still stops at that point, even though the debug has been removed. When I come out of the app the debug point has returned! I then remove it and run the app, and it still stops at that debug point. Is there a place where I can see where it records where the debug points are so I can monitor what is going on? Is this a known bug that's resolved in a later version? Any suggestions would be appreciated.

Hi, I have an Delphi 10.4 VCL app which connects to a remote MSSQL Server. This app works fine on my development PC and the Firedac setup is the same as I have on other apps I've created. However, whist these other apps also work fine on my clients PCs this particular app gives the above error message (snap attached). It would appear there is a difference in this app to the others but I cannot see any. I've created a small app which solely connects to MSSQL and this fails on these PCs also, which now makes me think there is something not setup correctly on their PCs. Any thoughts as to why I am getting this error would be appreciated.

Ah, good point. Sorry about the image it was sent by my client. I've assumed the PCs are 64bit and are OK with how I've configured my other apps, that all work OK (all are 64bit). I'll investigate further.

I send many emails out which have PDF attachments and usually via Outlook. However, I also provide the ability to send the same emails with the same PDF attachments via Indy. If the emails go to a Windows PC, or to an Android mobile they arrive correctly and the PDF attachment can be opened and viewed correctly. However, when these same emails go to iPhones the PDF shows as an attachment to the email but cannot be opened. Except if the iPhone is an old model and not at the latest version it can open PDFs from the email. Is this a known issue, or maybe a problem that Indy is aware of and can provide a solution?

Done some further testing. The emails with PDF attachments can be opened and read on iPhone/iOS version 14.7.1. I also had someone with iOS 15.3.1 who could open a PDF OK. It seems those with iOS 15.4 are the ones having the problem. In the UK that was released March 14th.

Many thanks for taking the time to help with this issue. I've changed my code to reflect what you are suggesting so again thanks for explaining that. I pick up bits and pieces from different places and sometimes they do end up a bit haphazard. Forget the attachment, it was early in changing the code, I had a create in the wrong place. This is the first time my User has used Indy to send emails with attachments (as he doesn't have Outlook), previously all emails with attachments have been sent by Outlook. And these have been sent to iPhone, Android mobiles, PCs etc. with no problems. From that it would appear to be an Indy issue, would you agree? Although I have one User, who has an old iPhone (with an older version of iOS) who receives these messages and can open the PDFs OK. That would indicate a later iOS might have something to do with the problem.

Thanks, qubits, I've Googled this and there's a mass of items about issues with PDFs sent to iPhones. Most talk of the obvious, like corrupt PDFs or incompatible formats and lots from way back. Trying to figure which if any relate to my issue is difficult, but I'll pursue. Remy, I can send the same email (with a PDF attached) from Outlook or from Indy to myself on a PC and on an Android phone (a gmail account) and they arrive OK with the attachment which I can open OK. Here is the gist of the code which I use: procedure CreateIndyEmail( xMsg:string; xFirstName:string; xNameid:integer; xEmail: String; xSubject:string ); var DATA: TIdMessage; SMTP: TIdSMTP; SSL: TIdSSLIOHandlerSocketOpenSSL; begin DATA:= TIdMessage.Create(nil); with DATA do begin Clear; ContentType := 'text/html'; ContentType := 'multipart/mixed'; Subject := xSubject; end; IdOpenSSLSetLibPath( cLoc ); SSL:= TIdSSLIOHandlerSocketOpenSSL.Create(nil); With SSL do begin Destination := 'smtp.xxvemail.co.uk'; Host := 'smtp.xxvemail.co.uk'; SSLOptions.Mode := sslmClient; // was sslmUnassigned; Port := 587; //465; ; SSLOptions.Method := sslvTLSv1_2; // originally sslvTLSv1; Fasthosts suggeted change SSLOptions.Mode := sslmUnassigned; SSLOptions.VerifyMode := []; SSLOptions.VerifyDepth:= 0; end; SMTP:= TIdSMTP.Create(nil); with SMTP do begin IOHandler := SSL; UseTLS := utUseExplicitTLS; Host := 'smtp.livemail.co.uk'; Port := 587; AuthType := satDefault; end; DATA.Recipients.EMailAddresses:= xEmail; SMTP.password := 'xyz'; SMTP.username := 'Seniors@xyz.com'; DATA.From.Address := 'Seniors@xyz.com'; DATA.Sender.Address := 'Seniors@xyz.com'; DATA.ReplyTo.EMailAddresses:= 'Seniors@xyz.com'; with TIdMessageBuilderHtml.Create do try Html.Text := xMsg; if gvbAttached = True then HtmlFiles.Add( gvAttachedFile ); FillMessage( DATA ); finally Free; end; try SMTP.Connect; SMTP.Send( DATA ); finally SMTP.Disconnect; end;

Hi I have a stringgrid which has a height of about twice the height of the text that is entered in it (the right side in the attached). I think the display would look much better if I could align this text vertically in the centre, rather than at the top of the cell. I've tried to figure out if there is a setting somewhere but can't find one (if one exists). Any help would be appreciated.

Many thanks Peter, set me on the right track. Figured it out now.

Hi, All the documentation files that are downloadable (as zip or 7z) give me an error 'Hmm ... can't reach this page' This is from: https://www.IndyProject.org/documentation/ The top one for .... shows http://ww2.indyproject.org/downloads/IndyDocs_10.1.5.0_H2Help.zip

Hi, I create emails in HTML using the following code to display a signature in the message: cMsg:= cMsg + ' <img src="BarrysSignature.jpg" '> Which means I need to have the jpg available in the current directory (and distribute it with the executable). I also use these same signature jpgs elsewhere in my program as I've loaded them as resources. What would be better is if I used the resource for the signature in the email, rather than the external jpg picture. I've tried a few ways of doing this but can't get it working. Any thoughts, please?

Hi, I create emails in HTML using the following code to display a signature in the message: cMsg:= cMsg + ' <img src="BarrysSignature.jpg" '> Which means I need to have the jpg available in the current directory (and distribute it with the executable). I also use these same signature jpgs elsewhere in my program as I've loaded them as resources. What would be better is if I used the resource for the signature in the email, rather than the external jpg picture. I've tried a few ways of doing this but can't get it working. Any thoughts, please?

And on Monday, 13th December at 14:18 in the RTL & Delphi Object Pascal forum, just as I said. Perhaps you didn't understand my comment when I said I'd posted the question on a different forum (which I thought was maybe the wrong one)? I have the utmost respect for anyone who helps with queries as it certainly helps me understand this great language. As I always ask for suggestions and not solutions I can then think my way into the problem if given an idea of how to progress. I've always though Praxis and StackFlow are completely different forums and often see similar questions posted on both forums.

That's untrue. I posted the question a few days ago on a different forum, but when I received no replies I thought I had posted it in the wrong forum. Hence I re-posted it in what I then considered a more appropriate forum. As I look at Stackflow a lot it s4eemed reasonable to see if anyone different had any thoughts. I was not assuming peoples time is less important, I value both forums and everybodies time as important to me and am very thankful. Do not assume the worst of people.

Only because I'd received no replies to my question.

Hi, I didn't renew my subscription for my 10.4.1 Delphi Enterprise when it expired last October. I may renew again in a few years if/when the additions make it worthwhile. However, now when I open GetIt I see the update shown in the attached screenshot - a 10.4.2 Installer, which says 'Included with your Update Subscription'. My confusion is if my subscription ended last October, why is this shown in GetIt, unless Embarcadero (in their wisdom) are allowing me to upgrade my 10.4.1 to 10.4.2?

Thought as much. I assume if you didn't realise this and went ahead it would stop before it did any damage - like installing after it had you uninstalling any previous versions.

Alongside each other on a form I have a CheckList and a ListBox. As I scroll down the CheckList (on the left side) box I want the ListBox (on the right side) to also scroll down, but at half the speed. The left side has 64 rows (col height 30) , the right side 32 rows (col height 60). As the scrolling goes through the 64 rows on the left side two rows at a time I want the right side to scroll down one row at a time. The application monitors progress of a knockout competition. Currently I try this using the following procedures to synchronise the vertical scrolling: procedure TForm1.Grid1WindowProc(var Message: TMessage); begin OldGridProc1(Message); if ((Message.Msg = WM_VSCROLL)) then OldGridProc2( Message ); end; procedure TForm1.Grid2WindowProc(var Message: TMessage); begin OldGridProc2( Message ); if (( Message.Msg = WM_VSCROLL )) then OldGridProc1( Message ); end; In the form activate I have this: OldGridProc1:= sgLastRound.WindowProc; sgLastRound.WindowProc := Grid1WindowProc; OldGridProc2:= gsgNextRound.WindowProc; gsgNextRound.WindowProc:= Grid2WindowProc; And this works correctly scrolling each side BUT at the same amount. What I'm after is the right side to scroll at half the amount of the left side. I can't see where I can divide the right side movement by 2 so it goes half the distances. Sorry if this isn't that clear. The attached screenshot may help visualise the problem.

Hi, When I create emails in Outlook using below code they all work without a problem. I'm using Office365, so the latest version of Outlook. However, when that same code is executed on a different PC, and one that uses Outlook 2013, I get 'Server execution failed, ProgID: 'Outlook Application' The start code for the email application is: try Outlook:= GetActiveOleObject('Outlook.Application'); except Outlook:= CreateOleObject('Outlook.Application'); end; When I google I get various replies to this issue (some of which are not a solution here), but wondered if any Delphi guys have hit this problem and know of a solution. Maybe a different way to open an Outlook instance?

Hi, Sorry it took so long, just been able to get to my client to take a look at his registry. There are 2 entries: Outlook.Application - Microsoft Outlook 15.0 Object Library and Outlook.Application 15 - Microsoft Outlook 15.0 Object Library