turbopack/asyncpro

Async Professional is a comprehensive communications toolkit for Embarcadero Delphi and C++Builder.

asyncpro's Issues

Sending EOP issue

Hi,

I'm experiencing issues sending faxes to some addressees. It just happen with a few specific ones. The sending process gets in a loop and it looks like it's not sending the EOP properly (the progress bar reaches the end though). Verifying what it has been actually sent in the recipient fax seems ok, so it's just an EOP process problem.

It is important to mention that this just happens in a Windows Server 2016 virtual machine. The same exe, using the same modem/fax in a regular server with Windows Server 2008 works fine on each sending process.

Thanks

PChar to String changes in Dec 3, 2023 commit 7023af0 broke AdFaxCvt.pas for me

The PChar to String changes in Dec 3, 2023's commit 7023af0 are giving me errors when trying to build "\packages\11AndAbove\Delphi\AsyncProDelphi.groupproj". I'm getting numerous "E2010 Incompatible types: 'PWideChar' and 'string'" throughout TApdCustomFaxConverter.ChangeDefPrinter().

The errors all involve calls to procedures in Vcl.Printers that expect PChar, such as:
procedure TPrinter.GetPrinter(ADevice, ADriver, APort: PChar; var ADeviceMode: THandle);
procedure TPrinter.SetPrinter(ADevice, ADriver, APort: PChar; ADeviceMode: THandle);

I've been away from Delphi and RAD Studio for several years now. Am I expected to have some sort of automatic string/pchar type casting enabled? It unclear to me how romankassebaum didn't get the same errors I am.

Testing with C++Builder 64-bit in Alexandria

I'm just adding this as a report. I did notice that 64-bit support is experimental.

If I create a brand new C++Builder 64-bit VCL Application, drop a sin TApdWinsockPort component on the main form and run it I get the following exception:

Project Project1.exe raised exception class 0xc0000005 with message 'Exception 0xc0000005 encountered at address 0xb477ff: Access violation reading location 0xffffffffffffffff'.

If I try to create the component in the main form constructor like this:

__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
  TApdWinsockPort *ApdWinsockPort1;

  // I tried both 0 and this as the Parent argument - same exception
  ApdWinsockPort1 = new TApdWinsockPort(0);
}
//---------------------------------------------------------------------------

I get the following exception:

Project Project1.exe raised exception class 0xc0000005 with message 'Exception 0xc0000005 encountered at address 0x1ff00000000: User-mode data execution prevention (DEP) violation at location 0x1ff00000000'.

32bit compile error ?

C++ Builder 11 Alexandra

There is no folder for hpp files (source\hpp\Win32\Debug) as mentioned in the md file ?

whether using Getit package manager or source code , I get a
[DCC Fatal Error] pasall.tmp(1): F1027 Unit not found: 'System' or binary equivalents (.dcu)
error, is this an error from IDE or this package?

Number of handles increases after repeated attempts to open an unavailable COM port

We use a service that serves various serial scales. The COM interfaces are provided via the network via COM servers from W&T (Wiesemann & Theis GmbH). If, for example, this COM interface is not available in a test environment, the exception "Apro exception" occurs.

Rec=-995

In my opinion, the reason are the 6 events (ComEvent, ReadyEvent, GeneralEvent, OutputEvent, SentEvent and OutFlushEvent) which are generated but not closed again in such a case.

The Bluetooth COM numbers are not showed

Dear developers,
I am using the AsyncPro since many years with great satisfaction, always when I develop a program I type 0 for the ComNumber property because it always pops up the "Select COM port" window and the user can select the desired COM port from the list.
The only problem with this method is the following: the Bluetooth COM ports are not visible on this list. If I type manually 10 to the ComNumber property then it connects to the Bluetooth device and everything works, but it is not a pleasant solution because the Bluetooth port's COM number are different on every pc.
Can you fix this bug?
Thanks in advance.

64-Bit Version

The serial port would not function in 64-bit. this is caused by the wrong parameters being passed. In AdPort.pas the function ComWindowProc must have the same parameters as "DefWindowProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;" so, replace with "function ComWindowProc(hWindow : TApdHwnd; Msg : UINT; wParam : WPARAM; lParam : LPARAM) : LRESULT; stdcall; export;". There are probably other such instances too... I did not check...

FTP bugs

I have been maintaining a product that is using adFTPCustomClient (and more of ADPro). Over the years I have made some small fixes locally. Some of them I can see have been implemented in the official code, but some are not. It has been some time since I made these changes and I am not 100% confident that they are correct, so I post this a suggestion to look at.

point 1)
In TApdCustomFtpClient.DataConnect the code goes:
<..>
if PassiveMode then begin
DataSocket := Sock.CreateSocket;
Result := (DataSocket <> Invalid_Socket);
Sock.SetAsyncStyles(DataSocket, FD_CLOSE or FD_READ or FD_WRITE);
SendCommand(PopCommand);
FIX: Remove SendCommand(PopCommand) so it becomes just "PopCommand" to avoid duplicate sent

Point 2)
In TApdCustomFtpClient.PostStatus the code goes:
<..>
begin
PData := nil;
if (Code > scLogin) and (Code <> scProgress) then
ChangeState(psIdle);

FIX: I have noted that the last line (ChangeState(psIdle), should also be guarded by this if statement:
if not (ProcessState in [psGet, psPut, psDir]) then //29.may.2008, used to always change state. Replycode should handle that (or timeout)

Point 3)
I believe there is bug that can let TApdCustomFtpClient.PutDate can be called before FTP response code 150 has been received. I have a pretty ugly hack to avoid that so I will not give any suggested solution

Regards,
Torsten Gabrielsen

No hpp subdirectory

There is no hpp subdirectory in the source subdirectory.

Unsuccessful compilation on Delphi 10.1 Berlin

I am migrating from Delphi 4 to Delphi 10.1 and having problems compiling
some components belonging to TurboPower company (Async v5).

Please see attached screen shot.

C++Builder Clang compiler does like arg named SType

In AwUser.hpp:

int __fastcall AddStatusTrigger(unsigned SType);

In AdPort.hpp:

System::Word __fastcall AddStatusTrigger(const System::Word SType);

Cannot Install on Delphi 11.3

Using Getit-Manager i am not able to installt Asyncpro in Delphi 11.3

this folder is missing from package AsyncPro\source\hpp !!!!

this folder is missing from package AsyncPro\source\hpp !!!
this is not working at all !!!!

1995 software Async Professional for Delphi TRP release.

I am looking for an old version of Async Professional that is referenced in Borland Press Delphi Developers Guide SAMS PUBLISHING by Xavier Pacheco & Steve Teixeira, printed in 1995.

The current version that is provided on the source code example CD is not the final version and it is not possible to distribute a program without installing the PRE-released version of Async Professional.

ISBN 0-672-30704-9
9780672307041

package manager NOT_WORKING !!!

what we do in this case when no pacake, no zip download working at all :(
package_NOT_WORKING

C++Builder classic compiler does not like the argument name SType

Errors from RAD Studio 11 - commenting out or deleting the argument name SType allows the code to compile. I have inserted the source from the .hpp's

[C++ Error] AwUser.hpp(264, 42): expected ')'
[C++ Error] AwUser.hpp(264, 32): to match this '('

int __fastcall AddStatusTrigger(unsigned SType);

[C++ Error] AdPort.hpp(282, 61): expected ')'
[C++ Error] AdPort.hpp(282, 41): to match this '('

System::Word __fastcall AddStatusTrigger(const System::Word SType);

[ilink32 Error] Error: Unable to open file 'ADSELCOM.DFM'

I try to disable 'Link with runtime packages' , and added a ApdComPort1, but when i Build the project, the linker throw an error:
[ilink32 Error] Error: Unable to open file 'ADSELCOM.DFM'

I have set the directory to the correct path, and if i compile and link WITH the runtime packages it work !
But i needed a application that can run WITHOUT the runtime packages...

I'm using the RAD Studio 10.4 Update 2

Any suggestions ?
Thank you

Updated: i solved the issue , i just copied the file ADSELCOM.DFM into the directory of the project.... The linker was able to find the file and create an executable application WITHOUT the runtime packages...

Updated part 2: i solved by the regular way ... I missed a library Path... My fault ... No needed anymore to put the ADSELCOM.DFM file in the directory...

Cannot compile ASYNC PROP

Any chance to get Async Pro to work with XE5 ( TComport)

TapdFaxConverter

Hi,
I have upgraded from delphi2007 and asyncpro to Delphi Rio and installed the newest asyncpro but cannot get the fax-conversion from a simple text file to a fax going . It crashes with an access violation in function: converter.Converttofile; (Tapdfaxconverter component).
I put the 12 lines of text into a memo (tstrings) and memo.lines.SaveToFile(fn,tencoding.ANSI); -> to make sure the input file is not UTF8 etc. (no special chars are in the text of course, standard font file is in place too..)

I have tried debugging and it crashes somewhere between converting line 2 and 3. I am sorry but I cannot figure out exactly where but in a function either in adFaxCvt or AwFaxCvt file. I have spend quite some time on this and tried changing several parameters and text etc. but the error seems to be quite stable e.g. should be easy to reproduce.
If somebody could fix this I would be VERY grateful.
thanks

Exception EInOutError: Usb to Serial Adapters unplugging

Link to Sourceforge discussion, with a suggested fix: https://sourceforge.net/p/tpapro/discussion/241883/thread/2f274722/?limit=25#e82c

I think I have seen something similar, and will leave this here to remind myself to the fix.

TAdTerminal can not support unicode

AdTerminal1.WriteString(#$1B'[0m'#$1B'[01;34m你好'#$1B'[0mbbb'#$D#$A);

Delphi 12 needed

Minor changes needed for work delphi 12?

[ilink32 Error] Fatal: Unable to open file 'ASYNCPROCR.BPI'

[ilink32 Error] Fatal: Unable to open file 'ASYNCPROCR.BPI'
get this error when i make all steps in description and nothing work
i don know what you provide :(

Branch named HEAD causes issues

Could you delete the branch named HED, since it is considered an invalid name for a branch?

I came across this issue when mirroring this repo to a private GitLab instance.

Any Chance to get AsyncPro working under RAD 10.2?

Any Chance to get AsyncPro working under RAD 10.2?

Thanks.

Any Chance to get AsyncPro working under Delphi XE7?

Any Chance to get AsyncPro working under Delphi XE7?

i download like a zip file but this AsyncProCR.bpl and others files MISSING in archive !!!!!

i download like a zip file but this files MISSING in archive !!!!! i search all folders in archive but no never found it. can you upload them in archive ti can use it easly in package manager directly in rad studio ????

Delphi

AsyncProDR.bpl (Delphi Runtime)
AsyncProDD.bpl (Delphi Designtime)

C++Builder

AsyncProCR.bpl (C++Builder Runtime)
AsyncProCD.bpl (C++Builder Designtime)

ApdGSMPhone link error

Hi,
I'm testing sending sms using a 4G module. Using C++ Builder 10.3 and in a VCL project.

The test project has only 2 TEdit and a TButton to send a sms, this code is like
void __fastcall TForm2::Button1Click(TObject *Sender)
{
ApdGSMPhone1->SMSAddress = Edit1->Text;
ApdGSMPhone1->SMSMessage = Edit2->Text;
ApdGSMPhone1->SendMessage();
}
At first it reports couldn't find "adgsm.h" and I manually pointed it to the AsyncPro-mast\source\AdGSM.hpp and added the folder to 'include directory', then I have and error:

ilink32 command line
c:\program files (x86)\embarcadero\studio\20.0\bin\ilink32.exe -G8 -L.\Win32\Debug;"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\debug";
"C:\AsyncPro-master\source";"c:\program files (x86)\embarcadero\studio\20.0\lib\win32c\release";"c:\program files
(x86)\embarcadero\studio\20.0\lib\win32c\release\psdk";C:\Users\Public\Documents\Embarcadero\Studio\20.0\DCP -j.\Win32\Debug;"c:\program files
(x86)\embarcadero\studio\20.0\lib\Win32\debug";"C:\AsyncPro-master\source";"c:\program files (x86)\embarcadero\studio\20.0\lib\win32c\release";
"c:\program files (x86)\embarcadero\studio\20.0\lib\win32c\release\psdk";C:\Users\Public\Documents\Embarcadero\Studio\20.0\DCP -l.\Win32\Debug -v
-GA"C:\Users\wunei\AppData\Local\Temp\vfs8BF5.tmp"="C:\Users\wunei\Documents\Working\CppBuilder\sms_test\Unit2.dfm" -aa -V5.0 -Tpe c0w32w rtl.bpi
vcl.bpi AsyncProCR.bpi vclx.bpi memmgr.lib sysinit.obj .\Win32\Debug\Project1.obj .\Win32\Debug\Unit2.obj , .\Win32\Debug\Project1.exe ,
.\Win32\Debug\Project1.map , import32.lib cp32mti.lib , , Project1.res
[ilink32 Error] Error: Unresolved external '__fastcall Adgsm::TApdCustomGSMPhone::SendMessageW()' referenced from C:\USERS\WUNEI\DOCUMENTS\WORKING\CPPBUILDER\SMS_TEST\WIN32\DEBUG\UNIT2.OBJ
[ilink32 Error] Error: Unable to perform link

It says a SendMessageW() function not found. Could anybody help to figure out how to fix this?
Thanks

LF Line Endings in the .DPKs Cause File Corruption

The .DPK for Delphi 12 has LF line endings. Delphi does not support LF line endings in the .DPK. This will cause Delphi to corrupt the .DPK with a mix of LF and CRLF line endings when the project options are edited. "Requires", "contains", and "end." will also be changed to "rrequires", "ocontains", and "d.".

This is also affecting the packages on GetIt.

See Delphi issue RSS-427 for more information: https://embt.atlassian.net/servicedesk/customer/portal/1/RSS-427

To fix this issue the .DPKs must have CRLF line endings. You need to have a .gitattributes file in your repository to prevent git from converting line endings. A .gitattributes file which contains:

* -text

Will turn off end of line conversion for all files. What goes into the repo will be what comes out.

Git documentation: https://git-scm.com/docs/gitattributes
GitHub documentation: https://docs.github.com/en/get-started/getting-started-with-git/configuring-git-to-handle-line-endings

C++ version Alexandria crashes but building with Tokyo 10.2 works fine

C++ version Alexandria compiled for 32 bit crashes but Tokyo 10.2 works fine. i.e. Building 32 bit APPs with Tokyo 10.2 works fine.
Can someone help me fix the Alexandria package?

I have a high volume outbound Fax Server APP that was built 20 years ago using C++ Builder 6 and a AsyncPro. I recently got the app to compile and run OK using C++Builder/Rad studio version 10.2 Tokyo.

When built with C++ version Alexandria the app crashes immediately. I have spent several days trying to use Alexandria. I'm the Alexandria package files from AsyncPro-master.zip from here on github. First I open the runtime package AsyncProCR. I set the platform to 32 bit release. It compiles just fine. Next I close the runtime package. Next I open the open the development package. I set the platform to 32 bit release. It compiles just fine. Next I add the package by going to Component | Install Package. I maneuver to C:\Users\Public\Documents\Embarcadero\Studio\22.0\BPL I select AsyncProCD280.bpl (D for design) The package installs fine.
Next I close the Package. Next I open my outbound fax app.

Next to overcome compiler error E2109 Not an allowed type in a number of places within AdFax.hpp. As a temporary workaround I'm manually editing AdFax.hpp by simply changing "__published:" to public: in a number of places. The app compiles fine but it crashes immediately when you send a test fax.

I have a different parent folder for all of the files when I'm trying to use Alexandria vs Tokyo 10.2. When I use C++ version Tokyo 10.2 everything works fine. (Note: I'm a paying Embarcadero customer with a subscription so I can run any version of Rad studio. I have tried all versions of Alexandria. Results are the same. It crashes immediately when you send a test fax.

I'm a C/C++ programmer with very little Delphi Pascal experience. I'm not sure how to debug / fix this this. It using using the exact same Asyncpro source folder pascal files. Other then the Rad Studio compiler version The only difference are the package files Alexandria vs Tokyo. This is a 32 bit app.

Maybe my HPP header file fix is not really fixing things ? Maybe there is a structure alignment size problem ? Or maybe its something else? Maybe there is something wrong in the Alexandria package ?

Does anybody have any clues, tips or suggestions to troubleshoot and fix this ?

What about fixing the E2109 Not an allowed type in a number of places within AdFax.hpp?

Best regards

Dan
C/C++ Software engineer
Saint Louis Missouri USA

about.pas missing in Emulator/Emulator.dproj

If you inspect the dproj:

<DCCReference Include="C:\Program Files\Borland\Delphi5\Objrepos\about.pas">
<Form>AboutBox</Form>
</DCCReference>

D-10.4-WIN10 : ApdVoIP1.Connect - voice over ip not possible requires windows 2000 or above

HI,
I want to do VOIP PC<>PC.

I found no examples within current project, so I tried tpapro_5.00\examples\ExVOIP0.dpr

I can not select may USB Headset and also got this error message:

voice over ip not possible requires windows 2000 or above

what did I wrong? compiled with delphi 10.4 on windows 10

thanks in advange
Andi

about change backcolor?

`type
TForm3 = class(TForm)
AdTerminal1: TAdTerminal;
AdVT100Emulator1: TAdVT100Emulator;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
AdTerminal1.WriteStringUTF8(#$1B'[0mbbb'#$D#$A);
end;

end.`

Set adc_TermBufBackColor to red, but it looks gray color.
AdTerminal1.color is also clRed.

Have all the issues disappeared? or is it just me?

Unable to open 'ADSELCOM.DFM' - C++ Builder 10.3.3 (Rio)

C++ AdFax.hpp E2109 Not an allowed type

+++++++++++++++++++++++++++++++++++++++++++++FIX C++ compiler error E2109 Not an allowed type in AdFax.hpp.
++++++++++++++++++++++++++++++++++++++++++++++

I'm a C/C++ programmer with very little Delphi Pascal experience. I have a high volume outbound Fax Server APP that was built 20 years ago using C++ Builder 6 and a AsyncPro. I recently got the app to compile and run OK using C++Builder/Rad studio version 10.3 Tokyo. However, when using C++ Builder to compile my fax outbound fax app I was getting compiler error E2109 Not an allowed type in a number of places within AdFax.hpp. The HPP files are generated when you build the C++ package. For some reason when the package is compiled "__published:" on some items is a problem when the HPP files are created.

For troubleshooting I can manually edit AdFax.hpp, change "__published:" to public: in about 6 changes one line changes to a number the C++ classes similar to this.... The app compiles and runs OK with 10.2 Tokyo. But under 11.x Alexandria it crashes. I'm a C/C++ programmer with very little Delphi Pascal experience. From what I've read about Delphi Published vs Public, the latter, public omits run time type information. I suspect the edit to AdFax.hpp changing from publish to public is not a safe valid fix because its changing intended run time type information

Could you help me figure out how to fix the Delphi / Pascal code ?

Searching online I found something similar error from almost 20 years ago

https://sourceforge.net/p/tpapro/discussion/241882/thread/823a8ad8/

Here is an example of the changes one line changes to a number the C++ classes similar to this....

class PASCALIMPLEMENTATION TApdReceiveFax : public TApdCustomReceiveFax
{
typedef TApdCustomReceiveFax inherited;
__published:

public: // DGA change to public to fix C++ E2109 Not an allowed type

__property AnswerOnRing = {default=1};
__property FaxAndData = {default=0};
__property FaxNameMode = {default=1};
__property OneFax = {default=0};
__property ConstantStatus = {default=0};
__property DestinationDir = {default=0};
__property OnFaxAccept;
__property OnFaxName;

public:
/* TApdCustomReceiveFax.Create / inline __fastcall virtual TApdReceiveFax(System::Classes::TComponent AOwner) : TApdCustomReceiveFax(AOwner) { }
/* TApdCustomReceiveFax.Destroy */ inline __fastcall virtual ~TApdReceiveFax(void) { }

};

can't compile with delphi xe7, error missing imagelist.dcu

[dcc32 Fatal Error] AdMdmDlg.pas(54): F1026 File not found: 'C:\delphi\async\packages\Delphi\ImageList.dcu'

help pls.