Skrim

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;

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;

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

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 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;

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.