お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"Fiber (ファイバ) 関数・手続き宣言"

この発言は
#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蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。

Copyright 1996-2002 Delphi Users' Forum