Скачать: CL | DM;

Перенос из 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.016 c