Skrim

var aNumber : Double; begin aNumber:=0; aNumber:=strtofloat(grid.Cells[3,arow]); ... ... Are floatvalues automatically initialized as 0 (zero)? Is the first code line unnecessary? If I understand the Help file correctly, global variables are and local variables are not?

See the topic, what does this warning mean? Does it matter? If no, can I turn it off? I declare a string variable like this S : string;

When I try to start Delphi (12.2) I get an error, List index out of bounds (6) TList range is 0..5 When I click OK the program closes. I have tried to reinstall, but did not help. Any ideas?

Thanks, great advice Kind regards

I have decided to do a complete clean reinstall. No wonder things fail from time to time, 2068 Registry keys were leftover from the uninstall

try aDialog:=TMyDialog.Create(self); ... ... finally aDialog.Free; end; I keep getting warnings about a dialog created inside a Try/Finally, why is it bad practise?

LOL, I have been using Delphi since version 2 and I did not know that I always declare string as aString : string; never aString : string[3]; But a lot of these string values are saved to a database field declared in the database as a string with a fixed length, could that be the reason for the error? Kind regards

I get this warning, what does it mean? [dcc32 Warning] HovedUnit.pas(13295): W1036 Variable 'j' might not have been initialized J is an integer. Do I have to do, J:=0;

Here is my code, also could it be done easier/more elegant // String 000001203 to 1203 // Numbers of zeros to the left could be 1..n function RemoveZeroLeft(var s : String) : string; var i, j : integer; begin for i:=1 to length(s)do begin if s<>#48 then begin j:=i; break; end; end; result:=copy(s,j,length(s)); end;

D12 When I doubleclick in Event OnGetEditText to make an event handler in a stringgrid I get this error. "Property and method MyGridOnGetEditText are not compatible." The event is empty. It had some code earlier, but that is deleted together with its declaration. From Delphi Help file "You are assigning a method to an event property even though they have incompatible parameter lists. Parameter lists are incompatible if the number of types of parameters are not identical. For a list of compatible methods in this form, see the dropdown list on the Object Inspector Events page." Any ideas how to solve this?

Nice I'll quote that one next time I cannot deliver on time and I'm facing fines (Usd 100 per. customer per day) for not delivering by the deadline.

Why then isn't GetIt up and running? For a company within the IT industry it should be simple enough, right? In my industry (finance) we are required to have plans for downtime situations to minimize the damage. Doesn't Embarcadero have plans for such cases? Or is the philosophy, let's just wait and see what happens should something arise

I think I know what is going on. Embarcadero have abanonned GetIt?

Hi How can I send an email with attachement from my Delphi Win32 app via Thunderbird? I can sendt directly from my app using Indy and via Outlook, but would like Thunderbird too. Links or sample code? Kind Regards

What do you use to make an application, made with Delphi, check for updates and let the user choose to update or not? Links appreciated 🙂 I have a component set for this, but it's too hard to use (at least for me) and I'm giving it up.

I upload Xml files to a remote service using Indy. Most of the time it's working just fine, but sometimes there is an error returning error code -1. (Unknown error?) When I say "not working" the file connection/transfer is not accepted by the remote service. It's just on a few pc's it's not working, could it be those pc's are missing required files (dll)? Using OpenSSL/Indy, what files do I have to distrbute in my Win32 application? uses SysUtils, IdIOHandler, IdIOHandlerSocket, IdSSLOpenSSLHeaders, idHTTP, IdContext, IdLogBase, IdLogFile, IdSSLOpenSSL, IdHTTPHeaderInfo, IdMultipartFormData, IdURI;

Thanks Remy, appreciate your answer. I will try it out. Regards, Ole

Solved. On those pc's giving an error both libeay32.dll and ssleay32.dll were missing. Would be nice with a message "Cannot find file xxxx.dll", not just -1 🙂

The error code is just -1. Nothing more, not very helpful From Windows?

Several clients connect to one remote server/service. Some clients receive error, most works just fine. Clients are on several dfferent locations. Could it be the clients firewall is blocking sending? Here is some of my code. procedure TFormSend.HttpFinish(ASender: TObject); begin LogMemo.Lines.Add(Format('Finished. Http status code : %d',[(ASender as TxxxxxUpload).ResponseCode])); if (ASender as TxxxxxUpload).ResponseCode=201 then showmessage('Invoice delivered') else showmessage('Error : Invoice could not be delivered'); end; procedure TMyClient.SendFile; var tmpstream: TStringStream; Params: TIdMultipartFormDataStream; FIdSSLIOHandler: TIdSSLIOHandlerSocketOpenSSL; FidHttp: TIdHTTP; FIdURI: TIdURI; FURL: string; begin HttpStart(Self); FResponseCode := 600; if DoCheckParams then begin Params := TIdMultipartFormDataStream.Create; FidHttp := TIdHTTP.Create(nil); FIdSSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); FIdURI := TIdURI.Create(FEndPoint); tmpstream := TStringStream.Create(Trim(FDocumentID)); try with FidHttp do begin ReadTimeout := 30000; // 0 ConnectTimeout := 30000; HTTPOptions := [hoKeepOrigProtocol]; // hoKeepOrigProtocol,hoForceEncodeParams HandleRedirects := true; RedirectMaximum := 5; ProtocolVersion := pv1_1; AllowCookies := true; OnWork := WorkEvent; OnWorkBegin := WorkBegin; OnWorkEnd := WorkEnd; OnStatus := StatusEvent; with Request do begin UserAgent := FUserAgent; BasicAuthentication := true; RawHeaders.FoldLines := false; Accept := 'application/xml'; Connection := 'keep-alive'; end; end; with (FIdSSLIOHandler as TIdSSLIOHandlerSocketOpenSSL) do begin with SSLOptions do begin Method := sslvTLSv1; SSLVersions := [sslvTLSv1]; Mode := sslmUnassigned; VerifyMode := []; VerifyDepth := 2; end; port := 443; host := FIdURI.host; end; FidHttp.IOHandler := FIdSSLIOHandler; Params.AddFile('file', FXMLfile, 'application/xml'); Params.AddFormField('SenderID', FSenderID); Params.AddFormField('RecipientID', FRecipientID); Params.AddFormField('ChannelID', FChannelID); Params.AddFormField('ProcessID', FProcessID); Params.AddFormField('DocumentID', '', '', tmpstream).ContentTransfer := '8bit'; FIdURI.Username := FUser; FIdURI.Password := FPassword; FURL := FIdURI.GetFullURI(); Params.Seek(0, soFromBeginning); try FidHttp.Post(FURL, Params, FResponse); FResponseCode := FidHttp.ResponseCode; FResponse.Seek(0, soFromBeginning); except on E1: EIdHTTPProtocolException do begin FResponseCode := FidHttp.ResponseCode; ErrorEvent(Self,'IdHTTPProtocol Protocol Exception:' + #$D#$A + StringReplace(E1.ErrorMessage, #10, #$D#$A, [rfReplaceAll])); ErrorEvent(Self,'IdHTTPProtocol RawHeaders=' + #$D#$A + FidHttp.Request.RawHeaders.Text); end; on E2: Exception do begin FResponseCode := FidHttp.ResponseCode; ErrorEvent(Self,'IdHTTPProtocol Unknown Exception: ' + E2.Message); end; end; finally Params.Free; FIdSSLIOHandler.Free; FidHttp.Free; FIdURI.Free; tmpstream.Free; end; end else ErrorEvent(Self,'Some required params are missed'); HttpFinish(Self); end;

I read here and there that the industry has moved to the Web (programs running in the browser) and it's a must if you want to stay in the industry and be relevant. I get it if you are developing personal apps that target smart phones and tablets, but I really don't understand why program/applications for the proffesionals working on an ordinary pc should use a browser. What I often hear from customers is "It's better". I ask, what is better? The answer is often "eeerrr... eeerrr... not sure" My answer is, the Web is better for the software industry and not neccasarily for the enduser. I'm also an accountant and I use browser based programs every day in my work, I can sum it up with three words: slow..slow..slow and a LOT of mouse clicks. A task in my main Win32 program takes 4 clicks, in a brower based program I use the same task takes 15 clicks. That program is made by one of the "big players" in it's field. Please help me understand, what is "better"?

Time to sum up this thread The enduser is not the most important part Most important, the "computer guy" Zero deployment, no local installation etc. Most developers are not capable of reviewing a program from the enduser's perspective

well, the web app is stateless... then each requirement is the only one... no exists "before"... exists "now" and only this. for sure, it's not appreciated but is this... Exactley why I "hate" to do work using a browser. I wold estimate my workload has increased by 30% over the last two or three years because of "The world is moving to the web". Even worse, a lot of software companies no longer offer support by phone, you have to talk to a robot or fill in a contact form, lucky you if you get an answer in only 1-2 days I'm so glad my main program is developed in Delphi by myself 🙂

"I want this". Yes, 15 clicks versus 4 clicks is exactly what the enduser wants 🙂 Why do programmers market such stupidity? I thought the whole idea using some software was to make the workload less, not worse. The list why a browser is less suitable for complex programs is endless. An example: In a browser based program (salary) I use there is a list (grid) and I want to edit row 25 and 26. I scroll down to row 25 and do my editing and save. Now row 26, but the list has moved back to row 1, scroll down again..... Why not stay in row 25 so I can easily choose row 26. (As it did in the "old" Win 32 program) Not a problem if you do the task 1-2 times a day, but what if you repeat 50 times a day? According to the Marketing Department, this is what an enduser wants.

Exactly what I mean too.