请教如何在两个程序间传递数据？

2001-09-24 10:57:51 163 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Android 唤醒应用程序，一个APP唤醒另一个APP，A应用调用B应用Activity，两个APP间传递数据注：将A作为当前应用，B作为要被唤醒的应用 B应用需要在manifest文件对应Activity添加 android:exported="true" 方式一：getLaunchIntentForPackage唤醒这种方式会启动要唤醒的app程序，相当于启动了B应用，进入其启动页。 "com.test.wakedemo2"为应用的包名。 //A应用中唤醒部分代码逻辑 Intent intent = getPackageManager().getLaunchIntentForPackage("co 阅读详情

我的想法是，一个程序发送自定义消息个另一个做为命令，另一个做相应的处理并有可能传递一些数据回去，应该怎样做呢？

...全文

工业级隔离CAN FD收发器ISO1042设计实战：从原理到EMC防护在工业自动化与伺服驱动系统中，CAN总线是实现设备间可靠通信的关键技术。其核心原理是通过差分信号传输和仲裁机制，在复杂电磁环境中实现多节点实时数据交换。这项技术的核心价值在于为高噪声、高干扰的工业现场提供了稳定、确定性的通信基础，是构建分布式控制系统不可或缺的环节。其典型应用场景包括新能源汽车电池管理、工业机器人伺服控制以及光伏逆变器集群通信等。本文将聚焦于如何通过高性能隔离CAN FD收发器（如TI的ISO1042）来应对地电位差、浪涌和高压串扰等现场挑战，深入解析其集成的电气隔离、±70V总线故障保护和阅读详情

yancey

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

yancey 2001-09-28

打赏
举报

不过老实说，我看大不懂 :~(
能不能稍微解释一下啊?

yancey 2001-09-28

打赏
举报

还没仔细看，就凭那么长的代码，我就给分了 :)

comanche 2001-09-25

打赏
举报

//---------------------------------------------------------------------------
Unit SynObjEx;

Interface

Uses Classes, Windows, Sysutils;
//---------------------------------------------------------------------------
Type
//---------------------------------------------------------------------------
ESyncObjsError = Exception;
THandle = Integer;
//---------------------------------------------------------------------------
// THandleObject have defined in syncObjs but FHandle declared
// in Private Section so it useless in other hierarchy object
//---------------------------------------------------------------------------
THandleObject = Class( TObject )
Protected
FName :String;
FHandle :THandle;
FLastError :Integer;
Public
Constructor Create;
Destructor Destroy; Override;

Property LastError :Integer Read FLastError;
Property Handle :THandle Read FHandle;
Property Name :String Read FName;
End;
//---------------------------------------------------------------------------
TWaitResult = ( wrSignaled, wrTimeout, wrAbandoned, wrError );

TEvent = Class( THandleObject )
Public
Constructor Create( EventAttributes :PSecurityAttributes; ManualReset,
InitialState :Boolean; Const Name :String );
Function WaitFor( Timeout :DWORD ) :TWaitResult;
Procedure SetEvent;
Procedure ResetEvent;
End;
//---------------------------------------------------------------------------
TMutex = Class( THandleObject )
Private
FFirstCreated : Boolean;
Public
Constructor Create( Const Name :String );
Function Get( TimeOut :Integer ) :Boolean;
Function Release :Boolean;

Property FirstCreated :Boolean Read FFirstCreated;
End;
//---------------------------------------------------------------------------
TSharedMemory = Class( THandleObject )
Private
FSize :Integer;
FFirstCreated :Boolean;
FFileView :Pointer;
Public
Constructor Create(Const Name :String; Size :Integer);
Destructor Destroy; Override;

Property Size :Integer Read FSize;
Property Buffer :Pointer Read FFileView;
Property FirstCreated :Boolean Read FFirstCreated;
End;
//---------------------------------------------------------------------------
// TBasicEvent
// Win32 events are very basic. They are either signaled or non-signaled.
// The TBasicEvent class creates a "typed" TEvent, by using a block of shared
// memory to hold an "EventKind" property. The shared memory is also used
// to hold an ID, which is important when running multiple clients, and
// a Data area for communicating data along with the event
//---------------------------------------------------------------------------
TEventKind = 1..$7FFFFFFF;
Type
PBasicEventInfo = ^TBasicEventInfo;
TBasicEventInfo = Record
Kind :TEventKind;
Data :Pointer;
End;

TBasicEvent = Class( TEvent )
Private
FSharedMem :TSharedMemory;
FEventInfo :PBasicEventInfo;

Function GetKind :TEventKind;
Procedure SetKind( Value :TEventKind );
Function GetData :Pointer;
Procedure SetData( Value :Pointer );
Public
Constructor Create( Const Name :String; Manual :Boolean );
Destructor Destroy; Override;
Procedure SetEvent( EventKind :TEventKind ); Overload;

Property Kind :TEventKind Read GetKind Write SetKind;
Property Data :Pointer Read GetData Write SetData;
End;
//---------------------------------------------------------------------------
// TCriticalSection
//---------------------------------------------------------------------------
TCriticalSection = Class( TObject )
Private
FSection: TRTLCriticalSection;
Public
Constructor Create;
Destructor Destroy; Override;
Procedure Enter;
Procedure Leave;
Procedure TryEnter;
End;
//---------------------------------------------------------------------------
Implementation
Uses TypInfo;
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
// { DONE -oBin. -cSynObjs : THandleObject Class Implementation
//---------------------------------------------------------------------------
Constructor THandleObject.Create;
Begin
Inherited Create;
End;
//---------------------------------------------------------------------------
Destructor THandleObject.Destroy;
Begin
If FHandle <> 0 Then CloseHandle( FHandle );
End;
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
// { DONE -oBin. -cSynObjs : TEvent Class Implementation
//---------------------------------------------------------------------------
Constructor TEvent.Create( EventAttributes :PSecurityAttributes; ManualReset,
InitialState :Boolean; Const Name :String );
Begin
Inherited Create;
FHandle := CreateEvent( EventAttributes, ManualReset,
InitialState, PChar(Name) );
If FHandle = 0 Then Abort;
End;
//---------------------------------------------------------------------------
Function TEvent.WaitFor( Timeout: DWORD ) :TWaitResult;
Begin
Case WaitForSingleObject( FHandle, Timeout ) Of
WAIT_ABANDONED: Result := wrAbandoned;
WAIT_OBJECT_0: Result := wrSignaled;
WAIT_TIMEOUT: Result := wrTimeout;
WAIT_FAILED:
Begin
Result := wrError;
FLastError := GetLastError;
End;
Else
Result := wrError;
End;
End;
//---------------------------------------------------------------------------
Procedure TEvent.SetEvent;
Begin
Windows.SetEvent( FHandle );
End;
//---------------------------------------------------------------------------
Procedure TEvent.ResetEvent;
Begin
Windows.ResetEvent( FHandle );
End;
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
// { DONE -oBin. -cSynObjs : TMutex Class Implementation
//---------------------------------------------------------------------------
Constructor TMutex.Create( Const Name :String );
Begin
Inherited Create;
FHandle := CreateMutex( Nil, False, PChar( Name ) );
If FHandle = 0 Then Abort;
FFirstCreated := ( GetLastError = 0 );
End;
//---------------------------------------------------------------------------
Function TMutex.Get( TimeOut :Integer ) :Boolean;
Begin
Result := ( WaitForSingleObject( FHandle, TimeOut ) = WAIT_OBJECT_0 );
End;
//---------------------------------------------------------------------------
Function TMutex.Release :Boolean;
Begin
Result := ReleaseMutex( FHandle );
End;
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
{ TSharedMem Class Implementation }
//---------------------------------------------------------------------------
Constructor TSharedMemory.Create( Const Name :String; Size :Integer );
Begin
Inherited Create;
FName := Name;
FSize := Size;
// CreateFileMapping, when called with $FFFFFFFF for the hanlde value,
// creates a region of shared memory
FHandle := CreateFileMapping( $FFFFFFFF, Nil, PAGE_READWRITE, 0,
Size, PChar( Name ) );
If FHandle = 0 Then Abort;
FFirstCreated := ( GetLastError = 0 );
// We still need to map a pointer to the handle of the shared memory region
FFileView := MapViewOfFile( FHandle, FILE_MAP_WRITE, 0, 0, Size );
If FFileView = Nil Then Abort;
End;
//---------------------------------------------------------------------------
Destructor TSharedMemory.Destroy;
Begin
If FFileView <> Nil Then UnmapViewOfFile( FFileView );
Inherited Destroy;
End;
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
// { DONE -oBin. -cSynObjs : TBasicEvent Class Implementation
//---------------------------------------------------------------------------
Constructor TBasicEvent.Create( Const Name :String; Manual :Boolean );
Begin
Inherited Create( Nil, Manual, False, Name );
FSharedMem := TSharedMemory.Create( Format( 'BasicEvent.%s', [Name] ),
SizeOf( TBasicEventInfo ) );
FEventInfo := FSharedMem.Buffer;
End;
//---------------------------------------------------------------------------
Destructor TBasicEvent.Destroy;
Begin
FSharedMem.Free;
Inherited Destroy;
End;
//---------------------------------------------------------------------------
Procedure TBasicEvent.SetEvent( EventKind :TEventKind );
Begin
FEventInfo.Kind := EventKind;
Inherited SetEvent;
End;
//---------------------------------------------------------------------------
Function TBasicEvent.GetData :Pointer;
Begin
Result := FEventInfo.Data;
End;
//---------------------------------------------------------------------------
Procedure TBasicEvent.SetData( Value :Pointer );
Begin
FEventInfo.Data := Value;
End;
//---------------------------------------------------------------------------
Function TBasicEvent.GetKind :TEventKind;
Begin
Result := FEventInfo.Kind;
End;
//---------------------------------------------------------------------------
Procedure TBasicEvent.SetKind( Value :TEventKind );
Begin
FEventInfo.Kind := Value;
End;
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
// { TODO -oBin. -cSynObjs : TCriticalSection Class Implementation
//---------------------------------------------------------------------------
Constructor TCriticalSection.Create;
Begin
InitializeCriticalSection( FSection );
End;
//---------------------------------------------------------------------------
Destructor TCriticalSection.Destroy;
Begin
DeleteCriticalSection( FSection );
Inherited Destroy;
End;
//---------------------------------------------------------------------------
Procedure TCriticalSection.Enter;
Begin
EnterCriticalSection( FSection );
End;
//---------------------------------------------------------------------------
Procedure TCriticalSection.Leave;
Begin
LeaveCriticalSection( FSection );
End;
//---------------------------------------------------------------------------
procedure TCriticalSection.TryEnter;
Begin
TryEnterCriticalSection( FSection );
End;
//---------------------------------------------------------------------------
End.

comanche 2001-09-25

打赏
举报

也可以建立一个公用的内存区域
我写过一个 TSharedMemory 类，代码不多，但由于 THandledObject 中 Handle 是 Private 中定义的，所以就...
我贴上完整的代码，其中还包括一个代有类型的事件(TEvent只有两种状态)

光明山人 2001-09-24

打赏
举报

用WM_COPYDATA消息，详情看WIN32 API帮助

请教如何在两个程序间传递数据？

相关推荐