Welcome, Guest
Username: Password: Remember me
Lab CT Version, news, test results, new features request and suggestions

TOPIC:

CT LAB ver 7.20 3 years 9 months ago #14824

  • Sternas Stefanos
  • Sternas Stefanos's Avatar Topic Author
  • Offline
  • Moderator
  • Moderator
  • Ex Pilot, M.Sc, Ph.D
  • Posts: 4511
  • Thank you received: 1101
1) Just replace
/usr/local/codetyphon/typhon/components/pl_Synapse/source/synaser.pas

with new from .zip file

2) Yes Embedded Form Designer NOT supported on MacOS yet
PilotLogic Architect and Core Programmer
Attachments:

Please Log in or Create an account to join the conversation.

CT LAB ver 7.20 3 years 9 months ago #14825

  • Dean Qin
  • Dean Qin's Avatar
  • Offline
  • New Member
  • New Member
  • Posts: 5
  • Thank you received: 0
thanks, compiled, but cannot run because unversioned libcrypto.dylib exception

I modified ssl_openssl_lib.pas of Synapse -- add a version to crypto & ssl filename, works fine now.

Please Log in or Create an account to join the conversation.

CT LAB ver 7.20 3 years 9 months ago #14826

  • Gyula Kampfner
  • Gyula Kampfner's Avatar
  • Offline
  • Junior Member
  • Junior Member
  • Posts: 25
  • Thank you received: 0
Hi,
the following code doesn't work in CodeTyphon, it spits out an error 'Connection to portal.1nce.com:443 failed', but it does work in Lazarus. The ssl libraries are installed, and I can connect to https websites except for this one. I tried debugging the fphttpclient unit, and the exception fires at line 624, which is FSocket.Connect; in TFPCustomHTTPClient.ConnectToServer procedure. I'm stuck here. Any suggestion how to fix this?
procedure TForm1.Button1Click(Sender: TObject);
var
  SMSGTW: TFPHTTPClient;
  s,authStringEnc: String;
begin
  SMSGTW:=TFPHTTPClient.Create(nil);

  s:='username:password';
  authStringEnc:=EncodeStringBase64(s);

  SMSGTW.AddHeader('Accept', 'application/json');
  SMSGTW.AddHeader('Content-Type', 'application/x-www-form-urlencoded');
  SMSGTW.AddHeader('Authorization',  'Basic '+authStringEnc);

  try
     s:=SMSGTW.FormPost('https://portal.1nce.com/management-api/oauth/token','grant_type=client_credentials');
     Log.Append(s);
     ShowMessage(s);
  except
     on E: Exception do
        ShowMessage(E.Message);
     else raise;
  end;

  SMSGTW.Free;
end;

Please Log in or Create an account to join the conversation.

CT LAB ver 7.20 3 years 9 months ago #14827

  • Sternas Stefanos
  • Sternas Stefanos's Avatar Topic Author
  • Offline
  • Moderator
  • Moderator
  • Ex Pilot, M.Sc, Ph.D
  • Posts: 4511
  • Thank you received: 1101
Please Sir
give us a sample project with the problem
Your OS and CT ver ?
PilotLogic Architect and Core Programmer

Please Log in or Create an account to join the conversation.

CT LAB ver 7.20 3 years 9 months ago #14828

  • Gyula Kampfner
  • Gyula Kampfner's Avatar
  • Offline
  • Junior Member
  • Junior Member
  • Posts: 25
  • Thank you received: 0
Windows 10 64 bit, ct 7.1. I'm out of office now so i cannot send a project now, but what i sent is the problematic part. Just run it from a button click event. Thank you :)

Please Log in or Create an account to join the conversation.

CT LAB ver 7.20 3 years 9 months ago #14831

  • Gyula Kampfner
  • Gyula Kampfner's Avatar
  • Offline
  • Junior Member
  • Junior Member
  • Posts: 25
  • Thank you received: 0
Here is my sample project:

File Attachment:

File Name: fphttp.zip
File Size:536 KB
Attachments:

Please Log in or Create an account to join the conversation.

CT LAB ver 7.20 3 years 9 months ago #14832

  • Matis A.
  • Matis A.'s Avatar
  • Away
  • Moderator
  • Moderator
  • Posts: 1060
  • Thank you received: 149
Thanks Sir
all work OK here

We just copy from C:\codetyphon\binRuntimes\i386-win32\ folder
to your executable folder
the libraries:
libeay32.dll
libssl.dll
ssleay32.dll

CodeTyphon has the correct Runtimes Libraries at codetyphon\binRuntimes

PilotLogic Core Programmer
Attachments:

Please Log in or Create an account to join the conversation.

Last edit: by Matis A..

CT LAB ver 7.20 3 years 9 months ago #14833

  • Gyula Kampfner
  • Gyula Kampfner's Avatar
  • Offline
  • Junior Member
  • Junior Member
  • Posts: 25
  • Thank you received: 0
Thanks, it works :)

Please Log in or Create an account to join the conversation.

CT LAB ver 7.20 3 years 9 months ago #14837

  • Fernando
  • Fernando's Avatar
  • Offline
  • Junior Member
  • Junior Member
  • Posts: 66
  • Thank you received: 0
Hi,
I got a strange problem with pl-fpspreadsheet. Please see the attached project, compile and run. Click on the button at the top left. A child window with a TsSpreadsheetGrid opens.
Write something on cell A1, then press Enter; the text disappears. Then press enter again (this time should be in cell A2), the test appears there.
Apparently, in a main window this problem does not happen.

Windows 10 x64
Typhon 7.2 r2006190435 FPC 3.3.1 r2006190435 Platform : x86_64-win64-win32/win64
Attachments:

Please Log in or Create an account to join the conversation.

CT LAB ver 7.20 3 years 9 months ago #14839

  • Matis A.
  • Matis A.'s Avatar
  • Away
  • Moderator
  • Moderator
  • Posts: 1060
  • Thank you received: 149
I think it's TsSpreadsheetGrid problem
we will try to solve this
PilotLogic Core Programmer

Please Log in or Create an account to join the conversation.

CT LAB ver 7.20 3 years 9 months ago #14840

  • Fernando
  • Fernando's Avatar
  • Offline
  • Junior Member
  • Junior Member
  • Posts: 66
  • Thank you received: 0
Thank you! The TsSpreadsheetGrid demos work well, but these are "normal" windows; this is why I think it may be related to the grid being in a child window.

Please Log in or Create an account to join the conversation.

CT LAB ver 7.20 3 years 9 months ago #14850

  • LuZZZZi
  • LuZZZZi's Avatar
  • Offline
  • Junior Member
  • Junior Member
  • Posts: 78
  • Thank you received: 1
Hi,

I'm trying to use the unit "ChooseClassSectionDlg" from the Typhons ide path. But the compiler told me that it can't find the TInsertClassSectionResult class. Do you know where I can find it.

Thx for help.

Please Log in or Create an account to join the conversation.

CT LAB ver 7.20 3 years 9 months ago #14852

  • LuZZZZi
  • LuZZZZi's Avatar
  • Offline
  • Junior Member
  • Junior Member
  • Posts: 78
  • Thank you received: 1
Hi,

another issue in ChooseClassSectionDlg.

lisChooseClassSectionDlgForMethodCaption = 'Insert new method to section'; is not available in ct_IDEStrConsts and
EnvironmentOptions.LastEventMethodSectionPrompt is also not available.

Thx

Please Log in or Create an account to join the conversation.

CT LAB ver 7.20 3 years 9 months ago #14856

  • Matis A.
  • Matis A.'s Avatar
  • Away
  • Moderator
  • Moderator
  • Posts: 1060
  • Thank you received: 149
Thanks Sir
we must remove chooseclasssectiondlg.pas it's useless
PilotLogic Core Programmer

Please Log in or Create an account to join the conversation.

Last edit: by Matis A..

CT LAB ver 7.20 3 years 9 months ago #14877

  • LuZZZZi
  • LuZZZZi's Avatar
  • Offline
  • Junior Member
  • Junior Member
  • Posts: 78
  • Thank you received: 1
The next issue I found in dbgintfdebuggerbase.

There is a set which can't cast to Integer. See picture



What is the solution for that?

Thx for help.
Attachments:

Please Log in or Create an account to join the conversation.

CT LAB ver 7.20 3 years 9 months ago #14878

  • Sternas Stefanos
  • Sternas Stefanos's Avatar Topic Author
  • Offline
  • Moderator
  • Moderator
  • Ex Pilot, M.Sc, Ph.D
  • Posts: 4511
  • Thank you received: 1101
Replace
Integer with PtrInt or PtrUInt

Integer(xxx) work only on 32Bit Pascal.

CT as leading Programming Studio use THE latest Object Pascal.
PilotLogic Architect and Core Programmer

Please Log in or Create an account to join the conversation.

CT LAB ver 7.20 3 years 9 months ago #14885

  • LuZZZZi
  • LuZZZZi's Avatar
  • Offline
  • Junior Member
  • Junior Member
  • Posts: 78
  • Thank you received: 1
I have tried your advice but the issue persists.

dbgintfdebuggerbase.pp(6163,46) Error: Illegal type conversion: "TDBGEvaluateFlags" to "Int64"

Thx

Please Log in or Create an account to join the conversation.

CT LAB ver 7.20 3 years 9 months ago #14886

  • Sternas Stefanos
  • Sternas Stefanos's Avatar Topic Author
  • Offline
  • Moderator
  • Moderator
  • Ex Pilot, M.Sc, Ph.D
  • Posts: 4511
  • Thank you received: 1101
Sir, send as the source and we will try to help you

We don't know
what is TDBGEvaluateFlags and what is RegCmd

Will general instructions we can help you

PS: we remove chooseclasssectiondlg.pas from LAB CT
PilotLogic Architect and Core Programmer

Please Log in or Create an account to join the conversation.

Last edit: by Sternas Stefanos.

CT LAB ver 7.20 3 years 9 months ago #14899

  • Sternas Stefanos
  • Sternas Stefanos's Avatar Topic Author
  • Offline
  • Moderator
  • Moderator
  • Ex Pilot, M.Sc, Ph.D
  • Posts: 4511
  • Thank you received: 1101
We release LAB CodeTyphon ver 7.20 revision 007150
Please test, report and always
have fun....
PilotLogic Architect and Core Programmer

Please Log in or Create an account to join the conversation.

CT LAB ver 7.20 3 years 9 months ago #14900

  • Matis A.
  • Matis A.'s Avatar
  • Away
  • Moderator
  • Moderator
  • Posts: 1060
  • Thank you received: 149
A lot of work in our LAB for CT Revision 007150
with the Covid-19 problems...

Next month it's holiday period for some LAB CORE-Programmers
(Mr Sternas must stay here to clean up the LAB :P )

We welcome 4 new CT Programmers to Our LAB for learning and Help.
They are new to our Pascal World... but they are very promising people.
PilotLogic Core Programmer

Please Log in or Create an account to join the conversation.

Last edit: by Matis A..