4D Japan Knowledge Base

4D Open APIs - Part IX：配列(sample code)への選択

次の例は、配列に現在の選択の内容をコピーする方法を教えます;特に、このコードは、配列に5つの英数字フィールドの内容をコピーし、それらを表示するでしょう。

void SelectionToArray(void)
{
ﾊReqFieldRecPtr FieldList;
ﾊArrayHandle hBuffer;
ﾊint2 TargetFile=1, n=9;
ﾊint4 CountRecords;
ﾊint myErr;
ﾊPtr pSrc;
ﾊDataRec Data;
ﾊshort i;
ﾊif ( FieldList == nil)
ﾊﾊ myErr = MemError();
ﾊelse
{
ﾊﾊCheck(_4D_SelectAllRecords(hConnect, 1),"_4D_SelectAllRecords\0");
ﾊﾊ FieldList = (ReqFieldRecPtr)malloc(sizeof(ReqFieldRec) + ((2*n)-1)*sizeof(int2));
ﾊﾊFieldList->NB_Fields = n;
ﾊﾊFieldList->TargetFile =TargetFile;
ﾊﾊFieldList->Fields[0]= TargetFile;
ﾊﾊ FieldList->Fields[1]=1 ;
ﾊﾊFieldList->Fields[2]= TargetFile;
ﾊﾊFieldList->Fields[3]=2 ;
ﾊﾊFieldList->Fields[4]= TargetFile;
ﾊﾊFieldList->Fields[5]=3 ;
ﾊﾊFieldList->Fields[6]= TargetFile;
ﾊﾊFieldList->Fields[7]=4 ;
ﾊﾊFieldList->Fields[8]= TargetFile;
ﾊﾊFieldList->Fields[9]=5 ;
ﾊﾊhBuffer = nil;
ﾊﾊCheck(_4D_SelectionToArray(hConnect, FieldList, &hBuffer), 36);
ﾊﾊCountRecords = **(long **)hBuffer;
ﾊﾊHLock((Handle) hBuffer);
ﾊﾊpSrc =*((Handle)hBuffer)+4 ;
ﾊﾊData.typ = -1;
ﾊﾊ for( i=0; iﾊﾊﾊpSrc +=pSrc[0]+4;
ﾊﾊﾊBlockMove(pSrc, Data.u.s , pSrc[0]+5);
ﾊﾊﾊData.typ =s_AlphaNumeric;
}
ﾊﾊprintf("%s",Data.u.s);
ﾊﾊgetchar();
ﾊﾊ if ( hBuffer != nil)
ﾊﾊﾊFree4DHandle((Handle4D) hBuffer);
ﾊﾊfree(FieldList);}
}