この発言は
#01186　Fermion         さんのFiber （ファイバ）
に対するコメントです






■説明
　ファイバ関連の関数・手続きを宣言したユニットです。
　unit Fiber; 以下を Fiber.pas というファイル名で保存して下さい。

■注意事項
　・Windows 98, NT4.0 以降で使用可。
　・Delphi で宣言されている Fiber 関連の関数および手続きには一部
　　誤りがありますので本ユニットを使用して下さい。

■その他
　・ファイバ（ Fiber ）についての詳細は、 Win32 API のヘルプ等で
　　ご確認下さい。

■ファイバ宣言ユニット
//=========================================================================
unit Fiber;

interface

uses
  Windows;

function  ConvertThreadToFiber( lpParameter: Pointer ): Pointer; stdcall;
function  CreateFiber( dwStackSize: DWORD;
                         lpStartAddress: TFNFiberStartRoutine;
                                lpParameter: Pointer ): Pointer; stdcall;
procedure DeleteFiber( lpFiber: Pointer ); stdcall;
function  GetCurrentFiber: Pointer; stdcall;
function  GetFiberData: Pointer; stdcall;
procedure SwitchToFiber( lpFiber: Pointer ); stdcall;

implementation

function  ConvertThreadToFiber; external kernel32 name 'ConvertThreadToFiber';
function  CreateFiber;          external kernel32 name 'CreateFiber';
procedure DeleteFiber;          external kernel32 name 'DeleteFiber';
function  GetCurrentFiber;      external kernel32 name 'GetCurrentFiber';
function  GetFiberData;         external kernel32 name 'GetFiberData';
procedure SwitchToFiber;        external kernel32 name 'SwitchToFiber';

end.
//=========================================================================

                              00/10/23(Mon) 08:17pm  Fermion [KHF03264]
 


- FDELPHI  MES(16):玉石混淆みんなで作るSample蔵【見本蓄積】 00/10/24 -

Original document by Fermion         氏 ID:(KHF03264)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。