emileverh

Correct! But... it's not an easy part of software to write!

Hi! I need to copy a file to the Windows-temp folder. But on some of my clients it fails. I can not reproduce it, but when they open a mail with attachment in Outlook and my app is working on the same filename it fails. The routine below fails. Please do not focus on Outlook, but in general. How can I 'force delete' a file? Or how can I safe save a file to the temp folder without problems? Any suggestions? Please help! -Emile function TdtmBoot.CopyFileToTempFolder(const AFullFileName: TFileName): string; begin var lFileName: string := ExtractFileName(AFullFileName); var lTempFolderFullFileName: string := GetTempFolder + lFileName; try if DeleteFile(lTempFolderFullFileName) = False then; // @17.22 begin SendMadBugReport(Self, 'CopyFileToTempFolder(), delete failed'); // <<<<<<<< HERE IT FAILS!!!!!!! end; except end; Result := lTempFolderFullFileName; try TFile.Copy(AFullFileName, lTempFolderFullFileName, true); // true = overwrite Result := lTempFolderFullFileName; except end; end;

Thanks Remy for your help!!!

You are right force deleting a file is not a good idea. The other (unknown for me) process needs the file. Any idea if there is an API to add a kind of duplication number like: file (1).txt, file (2).txt, file (3).txt ? I did Google something but I did not find 1-2-3 an API for that. Anybody knows?

Thanks and agree! I had to check if the file exists. But the DeleteFile() call was recently added. In previous versions of my app it failed on the next statement TFIle.Copy(). So again; is there a way to force delete a file?

Agree! Hotfixes and/or faster updates would be nice. Good quality goes above new features!

Thanks!

Can you send me the reader too? Thx!

Use GetControls() new since Delphi 11 I believe. Just as an example for me to disable TcxEdit's only. But you can do your own stuff: for var ctrl in frmMain.GetControls([ceftAll]) do begin if (ctrl is TcxEdit) then begin TcxEdit( ctrl).Enabled := false; end; end;

Hi guys! I am using D12. I have lots of code for ID’s like this: type TProductID = record ID : nativeint; end; What I want is this: type TProductID = nativeint; And yes I know the last declaration works! But when you make a call to a procedure and you mixed the params by mistake you got no error. Is there any helper, record attribute, compiler directive or so where I did not think of?!?! procedure TForm6.FormCreate(Sender: TObject); begin var tmpid: TProductID := 6; AddToStock(tmpid, 100); AddToStock(100, tmpid); // I want a compiler warning or error here!!!!!!! end; procedure TForm6.AddToStock(pid: TProductID; cnt: nativeint); // Both uses internally nativeint begin ShowMessage(pid.ToString); end; Now I have lot's(!) of database code like this in my program.... var cid : TCustomerID; var pid: TProductID; pid.ID := qryGetStockProductID.AsInteger; cid.ID := qryGetStocCustID.AsInteger; What I want is: pid:= qryGetStockProductID.AsInteger; cid := qryGetStocCustID.AsInteger;

Great! Thanks a lot!!

Hi! I installed ICS 9.1 today, wowww I am impressed. The demos are very impressive, compliments to the author(s) 😉 But also overwhelming with so much functionality. Can you give me a direction where to look for with what is the easiest way to find a MySQL server ( with port 3306 open) on my LAN (192.168.x.x)? Thanks in advance, Emile

@Angus and @FPiette, thank you both!!

I know it's a compiler problem, but why can they do it with classes and not with records....

That can be true, but that is 'not my problem' how to solve it. I use records a lot for several reasons (speed, memory management,....). And it would be VERY nice to have that.

forward declaration of records, just like a class

Hi team! frmSelectFooter := TfrmSelectFooter.Create(self); if frmSelectFooter.ShowModal = mrOk then begin ... end; FreeAndNil( frmSelectFooter ); If there are TFDQuery's used in that form, do I need to close explicitly close the query? In other words, are (database) resources still in use? Thanks! Emile

Thanks for the quick reply!! 😉

The TFDConnection is on a central place in the program on a different datamodule. ( MySQL and the property 'Pooled' is left default, which is False )

Totally agree. Fix the existing things first....

Hi team! I have a question; I have a situation where a secretary manages multiple calendars in Outlook. So from her manager, employee 1, employee 2, etc. Is it possible to get access to all calendars of all people? For example I want to put an appointment in the calendar of 'Employee 2' via Delphi 12. I now use the 'basic' access like: try myOutlook := GetActiveOleObject('Outlook.Application'); except myOutlook := CreateOleObject('Outlook.Application'); end; etc. etc. And that works. ( I use it for sending emails ). But I don't know you to use multiple calendars.... Your help would be much appreciated! Thanks in advance, Emile

Looks interesting. I will try that! Thanks for your help ;-))

Thanks for your answer. First the link does not work. And second my application is a planning tool where lots of mutations are done during the day. And adding email with attachments is not a good option ( we tought of that), because there will be a lots of mouse click work than and I don't want to run VBA scripts. Therefore I want full access to the local application, where the secretary has access to xxx employees. And I want to add/remove directly into Outlook. It already works for 1 calendar. But now I want to address one specific calendar.....that is my question

Yes, but it's loooooooots of things to read and every item is hyperlinked to another page. So I miss the overview. I hope(d) that some could say, yes I have done this before and do this (fake code): calendar.User[2].AddAppointment

Nobody?!?!