| Welcome, Guest |
You have to register before you can post on our site.
|
| 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
|
|
|
| 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.
|
|
|
| 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
|
|
|
|
| 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 ?
|
|
|
|
| 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?
|
|
|
|
| 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
|
|
|
|
|
