madshi wrote:Well, I'm just glad to hear it works now. Not sure what went wrong in the first place.
Neither did I, therefore the fishing expedition..
One more thing, I am after the Return msg after using HttpUpload.
I made some source changes that will help me but perhaps I can get you to add a generic return value to your code.
Essentially all I did is return s1 in an existing Field, but that could just as easily be a new field called "ReceiveResponse" and we won't need to alter your code.
Code: Select all
function TWinHttp.Post(const mailFrom: UnicodeString; const fields: IMEFields; const attachFiles, attachSendAs, attachFields: TDAUnicodeString) : boolean;
var fileCount : integer;
fileHandles : TDANativeUInt;
fileSizes : TDACardinal;
s1 : AnsiString;
begin
result := false;
if OpenAttachFiles(FPA, FSettings, attachFiles, fileHandles, fileSizes, fileCount, false, false) then begin
FPA.AreaDone;
result := InternalPost(FUrl, mailFrom, fileHandles, fileSizes, attachSendAs, attachFields, fields, s1);
fields.Contents['ScoutDefaultMessage'] := s1;
CloseAttachFiles(fileHandles);
end;
end;
From BugzScout docs:
The Success payload returns with either the DefaultMessage property provided when the bug was submitted, or a message added by someone on the bug server, such as "This bug has been fixed in version 2.0. Please upgrade." If you choose, you can show this to your users after the bug was submitted to give them an idea of why that bug happened or how to fix it.