Atozed Forums - Delphi General Discussion

Looking for UI Design Tips for a Business Catalog Website

Thu, 06 Aug 2026 01:17:22 -0400

Hi everyone,

I'm working on a business catalog website using web technologies, and I'm looking for some advice on creating a clean and responsive user interface.

The project is for a company that showcases Office Furniture in Dubai, so the website contains product categories, image galleries, contact forms, and inquiry pages. My main goal is to make the site load quickly while keeping the layout simple and user-friendly.

For those who have experience with IntraWeb or Delphi web applications:

Which UI components work best for product catalog pages?
Do you have any recommendations for improving page performance when displaying many images?
Is there a preferred approach for responsive layouts that works well across desktop and mobile devices?

I'd appreciate any suggestions, best practices, or examples from your own projects.

Thank you in advance for your help!

VCL conversion

Sat, 20 Jun 2026 01:00:43 -0400

Is there a program such as Mida available for converting VCL to Intraweb?

Problem with sendfile in version 15.6.7

Tue, 18 Mar 2025 18:19:17 -0400

Greetings

I've used sendfile before in Delphi applications (10.4 Sydney) to send files built with ReportBuilder to the clients downloads folder. All has worked well for years.

Now, I'm writing a new application to do this using the following code:

Code:
ppReport1.DeviceType:='PDF';

ppReport1.TextFileName:= 'D:\OnlineEntrys\Online Receipt - ' + formatdatetime('dd-mm-yyyy hh_nn_ss', now) + '.pdf';

ppReport1.ShowPrintDialog:=False;

ppReport1.ShowCancelDialog:=False;

ppReport1.ModalCancelDialog:=False;

ppReport1.ModalPreview:=False;

ppreport1.Print;

webapplication.SendFile(ppReport1.TextFileName, True);

ppreport1.reset;

The 'D:\OnlineEntries' folder was set up for me by the sysadmin to drop the files while I send them out. The files are created successfully.

When I run the code, I receive the following message:

error.png (Size: 10.3 KB / Downloads: 3)

I've searched the documentation and the internet, and cannot figure out what this message is trying
to tell me. Before I changed it to an ISAPI dll, I ran it as an exe file on my local computer, and it worked
fine. My gut tells me that it's a permissions issue somewhere, but I have no idea where.

Any suggestions or comments would be greatly appreciated.

Regards,

Mark

Flowcharts / software design

Fri, 17 Jan 2025 17:36:03 -0500

Any tips for a software designer / flowchart thingy?

I'm working on a server, it's getting complicated now and I am struggling drawing out objects, their properties and logic flowcharts on A4 bits of paper. It's just not a strength I have.

Any freeware out there that I can use? - It needs to let me design objects with their properties and then basic flowcharts - preferably with events..

I am really struggling to keep it all in my head!

False Positive Trojan warning major problems

Mon, 02 Oct 2023 15:02:53 -0400

I have several Free programs out for Search and Rescue , which keep showing up a "false positive" for some kind of virus.

As a result, in the last 6 months or so, it has become nearly impossible for people to install my programs.
Firefox blocks the installation package on download.
Microsoft windows 10 tries to block it with both an anti-virus system followed by a Certifcate problem (I have no certificate as I cannot afford the huge yearly fees).

Yesterday I got a panic call from a New Zealand Search and Rescue organisation, that suddenly on all their computers the main program litterally dissapeared while they where using it, including the Icon of the desktop. Right in the middle of a life-and-death Operation.

So, somewhere in my 250,000 lines of source code is something which generates a sequence of bytes in the Executable which triggens some anti-virus programs.

- How can I locate the exact position of this sequence in the executable?
- How can I somehow reverse engineer (de-compille) the executable to the point that I can then locate where in the Source code the problem is?

Bart

Changing the Modalresult of a button on close

Tue, 26 Sep 2023 16:25:17 -0400

I feel stupid to have to ask this after all these years programming, but I never got this properly sorted out.

I have a Form which is opened with ShowModal.
There is a Cancel button and an OK button.
The Modalresult Cancel button is set at design time to mrCancel.

But the Modalresult of the OK botton cannot be set to mrOK because I need to be able to break out of it, and let the user correct all invalid settings on the form.
So:

OkBtn.Modelresult = mrNone;

Form.OkBtnClick();
begin
if SomethingWrong then
begin
   ShowMessage(Fix it!);
     OkBtn.Modelresult := mrNone;
     exit; // Form should NOT close
end else
begin
     All okay, Close Form with Modalresult mrOK;
     OkBtn.Modelresult := mrOK; // Nothing happens...
     Form.Modalresult := mrOK; // has no effect
     CLose; // Does NOT close with mrOK.
end;

This does not work.
What is the correct way to deal with a Modal form in such a way that the final Modalresult is mrOK but while still working it is possible to intercept the OKBtn from closing the form?

Working with PNG data

Fri, 13 May 2022 13:17:31 -0400

Good time of day!

I've never worked with images. Now there is a need to display the image received from the server.

Here is the response I get from the server as a result of the request:

{"code":"000","message":"Запрос обработан успешно","data":{"image":{"mediaType":"image/png","content":"iVBORw0KGgoAAAAN....................."}}}

Please tell me how to display the received image in the "content" parameter on the screen. I use Delphi

source text

Sun, 08 Aug 2021 10:18:53 -0400

In which directory should the IntraWeb sources be placed so that they are available in DesignTime In Delphi XE7

upload image with php file

Wed, 17 Jun 2020 13:05:53 -0400

i have this uploading php script

Code:

/* Check if file already exists in location file save */

$fdirectory  = "uploads/";

if (!file_exists($fdirectory)) {

die('You Need To Create uploads Folder before start uploading..
 Dont Forget To Give Premission 777 To the Folder');

}

if (isset($_POST['upload'])) {

$imgsize = $_FILES['image']['size'];

$image_name = $_FILES['image']['name'];

$image_tempname = $_FILES['image']['tmp_name'];

$image_type = getimagesize($image_tempname);

$image_ext = explode('.',$image_name);

$ext = strtolower(end($image_ext));

$FileError = $_FILES['image']['error']; 

$allow_ext = array('png','jpg','gif','jpeg','bmp');

$allow_type = array('image/png','image/gif','image/jpeg','image/bmp');

if (in_array($ext, $allow_ext) && in_array($image_type['mime'], $allow_type)) {

if ($FileError === 0) {

if ($imgsize < 300000) { 

list($width, $height, $mime) = $image_type;

if ($width>0 && $height>0) {

#do Upload

$NewImageName = uniqid('', true).".".$ext;

$moveImg = $fdirectory.$NewImageName;

$upload = move_uploaded_file($image_tempname, $moveImg);

if ($upload) {

header("Location: imgup.php?img=".$moveImg ."");

exit;    

} else {

header("Location: imgup.php?res=failed");

exit;    

} # end check if uploaded

} else {

header("Location: imgup.php?res=error");

exit;    

}# image width check

} else {

header("Location: imgup.php?res=large");

exit;    

} # File size check end

} else {#FileError

header("Location: imgup.php?res=error");

exit;        

}

} else { # end of sec check

header("Location: imgup.php?res=error");

exit;    

}

/* isset check end*/

}

?>

and i am using httpclient to post the file to php like following

Code:
HttpClient := THTTPClient.Create;

try

HttpClient.AllowCookies := True;

HttpClient.UserAgent := sUserAgent;

HttpClient.HandleRedirects := True;

HttpClient.MaxRedirects := 3;

HTTPClient.ConnectionTimeout := 0;

HTTPClient.ResponseTimeout   := 0;

PostData := TIdMultipartFormDataStream.Create;

try

try

PostData.AddFile('image', FFileToUpload);

HttpResponse := HttpClient.Post(FdataURL, PostData);

FoutData := HttpResponse.ContentAsString();

except

end;

finally

PostData.Free;

end;

finally

HttpClient.Free;

end;

but the image doesnt seems to get uploaded and i get an empty response

what i am doing wrong ?

in html it works fine

Code:

Dynamically setting Application Main form

Mon, 09 Mar 2020 16:41:56 -0400

Hello,

I've read the section in "Migrating to IntraWeb XIV and XV" regarding "Dynamically setting the application main form".

I have a Standalone application that accesses a lot of variables defined in the usersessionUnit. The main form sees these variables by including the UsersessionUnit and the ServerController unit in it's uses section.

The suggested way to do it requires the inclusion of the form's unit in the uses clause of the ServerController Unit.

I would like to dynamically switch the MainForm out for another more suited for display on a mobile device when required.

If I try to do it as shown in the documentation above, the inclusion of the form's unit in the ServerController's uses clause creates a circular reference.

It leads me to believe that maybe I'm utilizing the usersessionunit incorrectly.

How can I accomplish dynamically swapping the MainForm while still isolating each user's session variables?

Thanks in advance,

Kevin

mcptUnknown is undeclared

Tue, 30 Oct 2018 07:00:22 -0400

Hi,

I am migrating my project from delphi 2009 to delphi berlin and using Indy10 in this.

In class IdMessageCode, it is saying undeclared Identifier mcptUnknown.

Can you explain why is it happening?

Thanks
kanhaiya

software protection

Tue, 25 Sep 2018 03:38:56 -0400

i am using some cryptography inside my software , i understand that the keys needs to be zero out from the memory in order to prevent hackers to catch the key

but i feel this isn't enough , using ollydebug can also break the rule before memory getting cleared by stepping into the code

before the zeromemory called

is there any suggested way to harden some code function from being stepped by debuggers

i have tried to check if the application is running in debug environment using IsDebuggerPresent but this easly can be bybassed by ollydebug plugins

is there something extra can be done ?

can rawbytestring cleared from memory ?

Tue, 11 Sep 2018 12:25:05 -0400

how possibly i can zeromemory rawbytestring ?

zeromemory string state question

Sun, 26 Aug 2018 20:39:28 -0400

why some times when i do zeromemory for long string it does not get cleared from memory

i do something like some times when i click on button 4 or 5 times i can see this text in memory viewer

Code:
procedure TForm1.OnClick(Sender: TObject);

var

  pstr: string;

begin

  pstr := 'abcdefghijklmnobqrsputwjdgdfkljfhghjfggffhgfj;

  ZeroMemory(@(pstr[1]), Length(pstr)*SizeOf(Char));

  pstr:='';

end;

RAD Studio August 2018 Roadmap

Tue, 07 Aug 2018 11:03:07 -0400

https://community.embarcadero.com/articl...18-roadmap