Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
ВнизПеренос из D3 в D5 Найти похожие ветки
← →
Cranium (2002-11-13 12:07) [0]WriteFile(FHandle, OEMStr^, NumberOfBytesToWrite,
FNumberOfBytesWritten,nil) Этот код работал в Делфи 3, а в петерке возникает следующая ошибка
Types of actual and formal var parameters must be identical
← →
MBo (2002-11-13 12:08) [1]кто бы еще знал, как у тебя параметры описаны
← →
Cranium (2002-11-13 12:12) [2]Привожу целиком
private
{ Private declarations }
public
{ Public declarations }
end;
var
PrintYes: Boolean;
FormCon: TFormCon;
FHandle: THandle;
FErrorString: PChar;
FPrinterOpen: Boolean;
FNumberOfBytesWritten: Integer;
NumberOfBytesToWrite: Integer;
OEMStr: PChar;
...........................................
procedure TFormCon.Write(const Str: string);
begin
if not FPrinterOpen then
Exit;
NumberOfBytesToWrite := Length(Str);
OEMStr := PChar(LocalAlloc(LMEM_FIXED, NumberOfBytesToWrite + 1));
try
CharToOem(PChar(Str), OEMStr);
if not WriteFile(FHandle, OEMStr^, NumberOfBytesToWrite,
FNumberOfBytesWritten,nil) then
begin
if FErrorString <> nil then
LocalFree(Integer(FErrorString));
FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER or FORMAT_MESSAGE_FROM_SYSTEM,
nil,
GetLastError(),
LANG_USER_DEFAULT,
@FErrorString,
0,
nil);
{SetErrorString;}
raise Exception.Create(string(FErrorString));
end;
finally
LocalFree(Integer(OEMStr));
end;
end;
← →
MBo (2002-11-13 12:20) [3]NumberOfBytesToWrite,
FNumberOfBytesWritten: Cardinal;// он же DWord
И надо ли здесь крыжик???
OEMStr ^
← →
asmith (2002-11-13 12:27) [4]Вот декларация функции WriteFile из модуля Windows.pas:
function WriteFile(hFile: THandle; const Buffer; nNumberOfBytesToWrite: DWORD;
var lpNumberOfBytesWritten: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;
ObjectPascal - строго типизированный язык, поэтому если в прототипе функции параметрв имеют тип DWORD, а подставляются типа Integer - компилятор выдаст ошибку.
← →
Cranium (2002-11-13 12:44) [5]Спасибо за подсказку теперь, теперь при проверке синтаксиса ошибок не возникает, зато при компеляции пишет:
"Internal error: L721"
← →
Cranium (2002-11-13 12:46) [6]Пардон сам виноват, базу в BDE не прописал....
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c