Welcome, Guest
You have to register before you can post on our site.

Username
  

Password
  





Search Forums

(Advanced Search)

Forum Statistics
» Members: 646
» Latest member: qq288new
» Forum threads: 998
» Forum posts: 5,092

Full Statistics

Online Users
There are currently 50 online users.
» 0 Member(s) | 48 Guest(s)
Bing, Google

Latest Threads
IdHTTPServer and session ...
Forum: Indy General Discussion
Last Post: Alan.F
49 minutes ago
» Replies: 2
» Views: 18
IWAppCache question - ctO...
Forum: IntraWeb General Discussion
Last Post: Alexandre Machado
3 hours ago
» Replies: 1
» Views: 16
Ciphers
Forum: IntraWeb General Discussion
Last Post: zsleo
Yesterday, 07:02 AM
» Replies: 17
» Views: 287
Check this out! IntraWeb ...
Forum: IntraWeb General Discussion
Last Post: Alexandre Machado
Yesterday, 02:35 AM
» Replies: 2
» Views: 43
Bootstrap
Forum: IntraWeb General Discussion
Last Post: ShaneStump
Yesterday, 12:33 AM
» Replies: 1
» Views: 41
CheckActiveFormInSync sho...
Forum: IntraWeb General Discussion
Last Post: gerritschurer
05-26-2020, 01:39 PM
» Replies: 2
» Views: 54
First time runing Error!
Forum: COSMOS General Discussion
Last Post: Quajak
05-26-2020, 09:12 AM
» Replies: 7
» Views: 74
Reported security issue v...
Forum: IntraWeb General Discussion
Last Post: joel
05-25-2020, 06:29 PM
» Replies: 4
» Views: 119
System.BadimageformatExce...
Forum: CrossTalk General Discussion
Last Post: kudzu
05-25-2020, 05:40 PM
» Replies: 5
» Views: 34
Barcode Scanning?
Forum: IntraWeb General Discussion
Last Post: ShaneStump
05-25-2020, 11:54 AM
» Replies: 15
» Views: 108

 
  First time runing Error!
Posted by: TourajOstovari - 05-15-2020, 07:53 PM - Forum: COSMOS General Discussion - Replies (7)

Hello, could someone help me for fixing this issue?

Thanks a lot...

Print this item

  Out of system resources ??
Posted by: rchristi12 - 05-15-2020, 03:20 PM - Forum: IntraWeb General Discussion - Replies (4)

We have an ISAPI dll running in IIS 8.5 on Windows Server 2012.  It was built using IntraWeb 14.2.3 on Delphi 10.1 Berlin.  The other day a few clients randomly received an error message stating "Out of system resources" from our application.  Our code does not display this message and the web server at the time had plenty of CPU and memory available.  The application did not crash but occasionally forced them to re-login.  Other times they could simply click through the message without any impact.  Has anyone else received this message and know why?  Any help is appreciated.  Thanks.

Print this item

  Session timeout not working
Posted by: martin.andersen@amesto.dk - 05-15-2020, 10:18 AM - Forum: IntraWeb General Discussion - Replies (10)

Hey!
When I set the session timeout in a ISAPI project it doesn't work, in a standalone project it works as expected.
I am using 15.1.16.
I have tried setting it both from the object property in the IDE and from code: UserSession.WebApplication.SessionTimeOut := 1;
Doesn't anyone know if this is a bug or a misunderstanding from my side.
In standalone the session becomes invalid when press e.g. a button after timeout, and the timeout screen is shown, so I know what to expect.

I run without cookies because there was a problem with CORS when showing the form in a IFRAME on a web page in another domain, and I'll have to test if .22 have solved this problem maybe, but any upgrade could break a 100's of things so I wait even if .16 seems to be buggy in a few places.

Regadrs Martin

Print this item

  compress the following image data
Posted by: Madammar - 05-15-2020, 02:57 AM - Forum: Indy General Discussion - Replies (1)

i have Jpeg image that loaded into memory stream and later on i use TIdEncoderMIME To encode the stream to a base64 string 

with the following code 

Code:
try
    JpegStream := TMemoryStream.Create;
    try
      Jpg := TJPEGImage.Create;
      try
        Jpg.Performance := jpBestSpeed;
        Jpg.ProgressiveEncoding := True;
        Jpg.ProgressiveDisplay := True;
        Jpg.Assign(btmpcam);
        Jpg.CompressionQuality := Qualitycm;
        Jpg.Compress;
        Jpg.SaveToStream(JpegStream);
      finally
        Jpg.Free;
      end;
      JpegStream.Position := 0;
      StringImageData := TIdEncoderMIME.EncodeStream(JpegStream);
    finally
      JpegStream.Free;
    end;


but the output base64 string length is 4000 which is too big. is there any way to compress this string to get smaller length ?

i already used zlib to compress the  StringImageData with the following code 


Code:
interface
uses
  Classes, SysUtils, zlib, EncdDecd;


function ZCompressString(aText: string; aCompressionLevel: TCompressionLevel): string;
function ZDecompressString(aText: string): string;


implementation

function ZCompressString(aText: string; aCompressionLevel: TCompressionLevel): string;
var
  strInput,
  strOutput: TStringStream;
  Zipper: TZCompressionStream;
begin
  Result:= '';
  strInput:= TStringStream.Create(aText);
  strOutput:= TStringStream.Create;
  try
    Zipper:= TZCompressionStream.Create(aCompressionLevel, strOutput);
    try
      Zipper.CopyFrom(strInput, strInput.Size);
    finally
      Zipper.Free;
    end;
    Result:= strOutput.DataString;
  finally
    strInput.Free;
    strOutput.Free;
  end;
end;


function ZDecompressString(aText: string): string;
var
  strInput,
  strOutput: TStringStream;
  Unzipper: TZDecompressionStream;
begin
  Result:= '';
  strInput:= TStringStream.Create(aText);
  strOutput:= TStringStream.Create;
  try
    Unzipper:= TZDecompressionStream.Create(strInput);
    try
      strOutput.CopyFrom(Unzipper, Unzipper.Size);
    finally
      Unzipper.Free;
    end;
    Result:= strOutput.DataString;
  finally
    strInput.Free;
    strOutput.Free;
  end;
end;


but image got corrupted after decompression what is the correct way to compress the output data string ?

Print this item

  The computer freezes when clicking to fast
Posted by: newuser - 05-14-2020, 09:08 AM - Forum: IntraWeb General Discussion - Replies (10)

Hi,
I experience unexpected freezing.
The program runs much slower then in Delphi, so a simple procedure of a few lines the wait sign appears for less then a second.
So for example when I click on a listbox, the first command is disabling the listbox and at the and of the procedure enabling again, otherwise when you click 2 times the program freezes.
The same I have when switching form one form to another and back.
Is this normal and what to do?

Print this item

  Unable to install IntraWeb 15
Posted by: Mischa - 05-10-2020, 11:41 AM - Forum: IntraWeb General Discussion - Replies (4)

Hello

I have just upgraded from IntraWeb 14 to installed IntraWeb 15.1.21
I have both RADStudio 10.1 and 10.3.3 installed
I have removed IntraWeb from my system using both the removal tool as well as manually deleting files
Intraweb is only instaling into RADStudio 10
IntraWeb will NOT install into RADStudio 10.3.3

When I try to create a simple application (Just an IWServerController and an IWForm) with RADStudio 10 I get the following errors...

ilink32 command line
  c:\program files (x86)\embarcadero\studio\17.0\bin\ilink32.exe -G8 -L.\Win32\Debug;"c:\program files (x86)\embarcadero\studio\17.0\lib\Win32\debug";
  "F:\IntraWeb 15\LibD10_3W32";"F:\IntraWeb 15\LibD10W32";"c:\program files (x86)\embarcadero\studio\17.0\lib\win32\release";"c:\program files
  (x86)\embarcadero\studio\17.0\lib\win32\release\psdk";"C:\Program Files (x86)\FastReports\LibD23";"F:\IntraWeb 15\LibD10W32";"F:\IntraWeb
  15\LibD10W32";C:\Users\Public\Documents\Embarcadero\Studio\17.0\DCP -j.\Win32\Debug;"c:\program files (x86)\embarcadero\studio\17.0\lib\Win32\debug";
  "F:\IntraWeb 15\LibD10_3W32";"F:\IntraWeb 15\LibD10W32";"c:\program files (x86)\embarcadero\studio\17.0\lib\win32\release";"c:\program files
  (x86)\embarcadero\studio\17.0\lib\win32\release\psdk";"C:\Program Files (x86)\FastReports\LibD23";"F:\IntraWeb 15\LibD10W32";"F:\IntraWeb
  15\LibD10W32";C:\Users\Public\Documents\Embarcadero\Studio\17.0\DCP -l.\Win32\Debug -v -GA"C:\Users\Mischa\AppData\Local\Temp\vfs4BF9.tmp"="F:\My
  Documents\Embarcadero\Studio\Projects\Project1\Unit17.dfm" -GA"C:\Users\Mischa\AppData\Local\Temp\vfs4BFA.tmp"="F:\My
  Documents\Embarcadero\Studio\Projects\Project1\ServerController.dfm" -GA"C:\Users\Mischa\AppData\Local\Temp\vfs4BFB.tmp"="F:\My
  Documents\Embarcadero\Studio\Projects\Project1\UserSessionUnit.dfm" -aa -V5.0 -Tpe  c0w32 vcl.bpi rtl.bpi Intraweb_15_D10.bpi dbrtl.bpi vclimg.bpi
  inet.bpi memmgr.lib sysinit.obj .\Win32\Debug\Project1.obj .\Win32\Debug\ServerController.obj .\Win32\Debug\Unit17.obj
  .\Win32\Debug\UserSessionUnit.obj , .\Win32\Debug\Project1.exe , .\Win32\Debug\Project1.map , import32.lib cp32mti.lib , , Project1.res Project1.res
[ilink32 Error] Error: Unresolved external '__fastcall Vcl::Forms::TCustomForm::GetDesignDpi()' referenced from F:\INTRAWEB 15\LIBD10_3W32\IWMAIN.OBJ
[ilink32 Error] Error: Unresolved external '__fastcall Vcl::Controls::TControl::GetParentCurrentDpi()' referenced from F:\INTRAWEB 15\LIBD10_3W32\IWMAIN.OBJ
[ilink32 Error] Error: Unresolved external '__fastcall Vcl::Controls::TControl::GetCurrentPPI()' referenced from F:\INTRAWEB 15\LIBD10_3W32\IWMAIN.OBJ
[ilink32 Error] Error: Unresolved external '__fastcall Vcl::Controls::TWinControl::GetAllocatedWindowHandle()' referenced from F:\INTRAWEB 15\LIBD10_3W32\IWMAIN.OBJ
[ilink32 Error] Error: Unresolved external '__fastcall Vcl::Forms::TCustomForm::ScaleForPPI(int)' referenced from F:\INTRAWEB 15\LIBD10_3W32\IWMAIN.OBJ
[ilink32 Error] Error: Unresolved external '__fastcall Vcl::Controls::TControl::GetSystemMetrics(int)' referenced from F:\INTRAWEB 15\LIBD10_3W32\IWMAIN.OBJ
[ilink32 Error] Error: Unresolved external '__fastcall Vcl::Controls::TWinControl::ResetIme(HWND__ *)' referenced from F:\INTRAWEB 15\LIBD10_3W32\IWMAIN.OBJ
[ilink32 Error] Error: Unresolved external '__fastcall Vcl::Controls::TWinControl::ScaleControlsForDpi(int)' referenced from F:\INTRAWEB 15\LIBD10_3W32\IWMAIN.OBJ
[ilink32 Error] Error: Unresolved external '__fastcall Vcl::Controls::TWinControl::SetIme(HWND__ *)' referenced from F:\INTRAWEB 15\LIBD10_3W32\IWMAIN.OBJ
[ilink32 Error] Error: Unresolved external '__fastcall Vcl::Forms::TCustomForm::ScaleForCurrentDpi()' referenced from F:\INTRAWEB 15\LIBD10_3W32\IWMAIN.OBJ
[ilink32 Error] Error: Unable to perform link


Fixed the linker problem.

When trying to build with RADStudio 10 I renamed LibD10_3W32 to something else, to force it to use LibD1032.

However, I now have a problem with IWLicenseKey.Pas.

[DCC Fatal Error] IWLicenseKey.pas(1): F1027 Unit not found: 'System' or binary equivalents (.dcu)

I have just paid AUD1338.00 for a subscription to this software and am starting to get a bit concerned, as it looks like the only place I can get support is via this forum

Print this item

  IW 15.1.22 is out
Posted by: Alexandre Machado - 05-08-2020, 11:29 PM - Forum: IntraWeb General Discussion - No Replies

IntraWeb 15.1.22 is out!

This new update contains an important fix related to some 3rd party controls (TMS IntraWeb Pack), so if you are using TMS IntraWeb controls, I strongly suggest that you upgrade now.

Please notice that this version is binary compatible with previous versions from 15.1.12, so no need to dependent packages.

https://www.atozed.com/2020/05/intraweb-15-1-22/

Enjoy!   Big Grin

Print this item

  TIWlistbox show selected item
Posted by: newuser - 05-07-2020, 08:10 AM - Forum: IntraWeb General Discussion - Replies (2)

Hi,
How do I show which item is selected, I can't find a property to select the color for the selected item.

Print this item

  WebApplication.ShowMessage blank
Posted by: newuser - 05-06-2020, 08:38 AM - Forum: IntraWeb General Discussion - Replies (1)

Hi,
When I call WebApplication.ShowMessage I get a blank box with an OK button.
So the tekst and the background are white.
When I add ,smNewWindow I get no box at all just the waiting signal…..

Print this item

  IntraWeb 15.1.21 is out!
Posted by: Alexandre Machado - 05-03-2020, 11:49 AM - Forum: IntraWeb General Discussion - No Replies

Hi guys,

new maintenance update for IntraWeb 15.1:

https://www.atozed.com/2020/05/intraweb-15-1-21/

Enjoy!  Big Grin

Cheers

Print this item