mierlp

Hi Oliver, I don't understand where/how to set the ''Set Action :=caNone'' option, can you explain? Regards Peter

Hi I have a form including a dbnavigator for editing product. When the user closes the form the OnClose events is fired with the following code. There's a check if the database is in edit or insert mode and if...then fire the message for saving or canceling the changes. procedure TFormProduct.UniFormClose(Sender: TObject; var Action: TCloseAction); begin if dmMain.Product.State in [dsEdit,dsInsert] then begin MessageDlg('Information has been changed but not saved' + '<br/><br/>' + 'Would you like to save the changes (Y/N) ?', mtConfirmation, mbYesNo, QuestionSaveYesNo); end; end; This uses the following Callback code : procedure TFormProduct.QuestionSaveYesNo(Res: Integer); begin case Res of mrYes : dmMain.Product.Post; mrNo : dmMain.Product.CancelUpdates; end; end; This should do the trick (normally in vlc it does) but for some reason it doesn't cancel the changes and the changes are always saved. A other behavior is that the form is already close and only the question is on the screen, normally both have to be on screen...maybe it's a behavior of EXT JS ? How to modify it so that the form is still on screen including the message (is Onclose the wrong event?) and the changes are canceld. I still use 0.89 because of the uniEdit desing height issue...which i don'nt know if it's already solved? Regards Peter

Hi Thanks for the reply...it works...and i'm happy Regards Peter

Hi, After using a ShowMessage for displaying a mesage i can't get back the focus on the field. When a user hit's a button the following code is executed. Normally it have to set the focus on the field,but this is not working...or i'm doinng something wrong procedure TFormAccountInlog.UniBitBtn_SaveClick(Sender: TObject); begin if Length(UniEdit_InlogUserName.text)=0 then begin ShowMessage('<br/><div align="center">Het invulllen van een gebruikersnaam is verplicht!' + '</div><br/>'); Abort; UniEdit_InlogUserName.SetFocus; end; end; Regars Peter

Hi I was wondering why the cursor is always visible when a message is displayed. In my situation i have inlog screen where is checked if the username field is filled when the users pressed the OK button I use this code : if Length(UniEdit_InlogUserName.text)=0 then begin Cursor:=crNone; ShowMessage('<br/><div align="center">You need to enter a username!' + '</div><br/>'); Cursor:=crDefault; UniEdit_InlogUserName.Clear; UniEdit_InlogUserName.SetFocus; Abort; end; Because the focus is on the UniEdit_InlogUserName you see cursor blinking through the message... can it be done otherwise ? Regards Peter

Hi Ronak Thanks for the tip and the great demo..i think lot's of us can use this demo...thanks again. Regards Peter

Hi, For a report and mail function the user must select a file...first he needs to select a FastReport report (.fr3) file which is on the server for a preview. Second he must be able to select one or more file(s) on his desktop to attach with a e-mail. How can i this be done...because there's nothing like a OpenDialog function i believe. Regards Peter

Hi Ronak, Thanks for the tip...it was took some puzzle time, but i got it working that way...great/thanks Regards Peter

Yep...did set it to TRUE, but didn't solved the problem. There another strange behavior of the AddEmail Active X. After i put the component on the form, save the project, reopen the project the component is not visible any more and when compeling i got the message : Field FormMailBasic.SmtpMail does not have a corresponding component. Remove the declaration Yes/No/Cancel I think it's because the component has a big size icon wereby it's 'visual' Regards Peter

Hi Oliver, The problem then was the replacement from the [LastName] into real fieldnames so it can be used with a query. Because the code was unuseless we did'nt used/saved it and found other solutions. I now build my 'simple' mail form (based on you're suggestion) so the user can send a e-mail. For sending mail is prefer using stable components. I've tested the following components, which are all working in Win32 but have some problems when using them in uniGui: - Mailbee Smtp ActiveX (http://www.afterlogic.com/mailbee/objects but have a problem (Componentent not connected tot a services) when i want the send the message the second time. I used it in Win32 apps and it's a older version maybe a upgrade must be done and i will mail them about the error - AddEmail ActiveX(http://www.traysoft.com/addemail_overview.htm The problem here is a got a AccessViolation when a set the serialnumber for the component...even when i do it in uniGui VCL mode...in a normal Win32 applications it's working. I've send them a mail for support. Both components support a way of bullk mail...so if you have to send 500 mails to you're customers Regards Peter

Hi Oliver In this case they only need 1 query (record) -> 1 mail(body) because we only need some fields out of the CONTACT database like : LastName, FirstName, MiddeName Regards Peter

Hi Oliver, Within our Windows applications we only used 'standard' mail messages. Those 'messages/layout' are created in FastReport as a report, so the user can access all database and fields he needs. When they send a message the report was automaticly exported to a mail.html file which was imported into te mail body. In this case the user can make his 'message' he wants, including images, text, colors etc. Works fine...but not in uniGui mode...that's also the reason about my other thread 'How facilitate reporting'. I have also used 'search/replace' but it's to difficult for users. Regards Peter

Hi, For a Dutch guy my Chinees language isn't so good but there's a lot of loading activity of the 'dbgrid' when entering from one menu to the other. Regards Peter

Hi Oliver, Thanks for sharing...looks very nice/good. How do you send bulk mail and do you use some kind of mail merge...integrate some personal values from a database ? Regards Peter

Hi, Nice code Ronak...i'm going to test it. @Oliver : did you build some kind of 'outlook' look-and-feel for the user for sending/reading e-mail ? Regards Peter

Hi, I was wondering how you send e-mail. I know Indy can be used, but i find in not the best solution for my Win32 applications so i switched to AddEmail from Traysoft. A nice feature is that you can import a html file into the body of the message. Using FastReport the user could create a report for his e-mail body. The report was exported to html and then imported into the e-mail message body. AddEmail is a active X and you have several non visual components which can be used with uniGui Questions: - how do you facilitate composing/sending a single mail to a user...do you have a self build mail form? normally i used the shellexecute for calling the default mail client...in web mode that's not what you want - how do facilitate composing/sending bulk mail to all clients within you database? Tips...suggestions..ideas, samples are welcome Regards Peter

Hi John Well...for tables and queries it's basicly the same. I don't know which components you are using but often you need a Connection component where you can enter the: - usernamae - password - database - host A query component is connected to the connection component A datasource component has a link to a dataset (query component) First make the connection component ACTIVE Second maken the query componant ACTIVE Right click on a query component and use the Field Editor to add the database fields so you can choose them in a dbgrid. Regards Peter

Thanks Farshad...would be nice

Hi And the problem is still there even when i add the code: procedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject); begin MimeTable.AddMimeType('xls', 'Excel'); end; After 3-5 download the file i get the error message. Regards Peter

Well...the problem is that's not so simple to create a report builder with UniGui because of the visual aspect. Viewing is not a problem but give the use a report desinger is a other issue. Well ...there are two option i think and that's Fast Report Server or the option building a .exe file and give it to the user. My Win32 apps is also based on a client which has to be installed and the database are on the web server. That's works good and it's a serieus option. It's also possible to create a virtuel file from it using VMware Thinstall...in that case no installation has to be done. Regards PEter

Hi I didn't create a 64 bits application because i don't have a 64-bits Delphi version for creating then. But a 32-bits delphi apps is running well on a 64-bits OS Greetz Peter

Hi I use Mysql and myDac from Devart....works great and fast...and Devart has good support. Regards Peter

Hi Marius, I know about Fast Report Server and if there's no other solution then i will buy it....but i think there must be a other solution as i described, but i can't test if it's possible to 'start' a .exe file from within a isapi.dll version of the application In the FastReport demo directory there's a demo directory called DLL, (but this demo is not working) and i think they use the rptdll.dll to create or show a report. Regards Peter

Hi, When running the apps I got the message: 'Extension already exists' Regards Peter

Hi, Within my application i have a form which contains a listbox with all tables. The user can select a table he wants to export. When he hits the export button the following code will be executed: // Database if NOT dmArtist.Artist.Active then dmArtist.Artist.Active:=TRUE; // Excel export scExcelExport.DataSet:=dmArtist.Artist; scExcelExport.WorksheetName:='Artiesten'; scExcelExport.HeaderText.text:='Artiesten per ' +DateToStr(Date) ; scExcelExport.ExcelVisible:=false; try scExcelExport.ExportDataset; ExportFile:='Artiesten per ' +FormatDateTime('hhmmss', Time) ; scExcelExport.SaveAs(UniServerModule.FilesFolderPath+ExportFile,ffXLS) finally scExcelExport.Disconnect; // Save export UniSession.SendFile(UniServerModule.FilesFolderPath+ExportFile+'.xls', 'Artiesten.xls'); end; end; I save the file to UniServerModule.FilesFolderPath and every file will be created. Sometimes after 3 or 5 export actions (files are created) i got the followin message : 'Cannot open file C:\Data\Delphi\UniGui\myEventWeb\cache\Artiesten per 133412.xls' The process has no access to the file because it's used by a other proces See attachement...it's in Dutch but the translation is above. I test i local as you can see by the path names. Regards Peter