blob: bc95ab7ff31240fbf423593f6c73ec4f55598a76 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
/* xb_dumpdbt.cpp
XBase64 Software Library
Copyright (c) 1997,2003,2014,2017 Gary A Kunkel
The xb64 software library is covered under
the terms of the GPL Version 3, 2007 license.
Email Contact:
xb64-devel@lists.sourceforge.net
xb64-users@lists.sourceforge.net
*/
#include <xbase.h>
using namespace xb;
int main( int ac, char **av )
{
#ifdef XB_MEMO_SUPPORT
xbXBase x;
xbInt16 iRc;
char cFieldType;
xbDbf *MyFile = NULL;
xbUInt32 ulMemoFieldLen;
xbString sFldName;
xbInt32 lBlockPtr;
xbString sMemoFldData;
if( ac <= 1 ){
std::cout << "\nUsage: dumpdbt filename...\n";
return 1;
}
if(( iRc = x.OpenHighestVersion( av[1], "", &MyFile )) != XB_NO_ERROR ){
std::cout << "Could not open file iRc = " << iRc << " file = " << av[1] << std::endl;
x.DisplayError( iRc );
return 0;
}
if( MyFile->GetMemoFieldCnt() == 0 ) {
std::cout << "No memo fields exist in " << av[1] << std::endl;
} else {
xbUInt32 ulRecCnt = 0;
iRc = MyFile->GetRecordCnt( ulRecCnt );
for( xbUInt32 ul = 1; ul <= ulRecCnt; ul++ ){
MyFile->GetRecord( ul );
std::cout << "\nRecord # " << MyFile->GetCurRecNo();
if( MyFile->RecordDeleted())
std::cout << " (deleted) ";
for( int j = 0; j < MyFile->GetFieldCnt(); j++ ) {
MyFile->GetFieldType( j, cFieldType );
if( cFieldType == 'M' ) {
MyFile->GetMemoFieldLen( j, ulMemoFieldLen );
MyFile->GetFieldName( j, sFldName );
MyFile->GetLongField( j, lBlockPtr );
std::cout << "\nMemo field [" << sFldName.Str()
<< "] length = [" << ulMemoFieldLen;
std::cout << "] Head Block = [" << lBlockPtr << "]\n";
MyFile->GetMemoField( j, sMemoFldData );
std::cout << sMemoFldData.Str() << "\n";
}
}
}
std::cout << "\n";
MyFile->Close();
delete MyFile;
}
#else
std::cout << "\nXB_MEMO_SUPPORT is OFF\n";
#endif
return 0;
}
|