Access violation

← →
TCrash © (2003-05-30 00:07) [0]

практически вся прога - ниже
procedure TForm1.FormCreate(Sender: TObject); var s:dword; b:pchar; begin GetUserName(b,s); Edit1.Text:=string(b); end;
отрабатывает нормально, но при выходе из формы вываливает сабж
не пойму где грабли.

← →
Юрий Зотов © (2003-05-30 00:58) [1]

Вообще, под строку неплохо было бы выделить память и проинициализировать указатель b ее адресом.

← →
TCrash © (2003-05-30 01:07) [2]

В windows.pas имеем следующее описание :

function GetUserName(lpBuffer: PChar; var nSize: DWORD): BOOL; stdcall;

разве для PChar, который возвращает функция, требуется описание ?
Да и потом, имя пользователя возвращается правильное и без лишних символов.

← →
sniknik © (2003-05-30 01:53) [3]

в этом случае обязательно (память выделить). в хелпе читаем

lpBuffer
Points to the buffer to receive the null-terminated string containing the user"s logon name. If this buffer is not large enough to contain the entire user name, the function fails.

т.е. ожидается указатель на буфер куда бедет писать. и если не влезет по размеру, функция не сработает. а пишет он у тебя сейчас в случайное место. (в код на выходе)

> разве для PChar, который возвращает функция, требуется
> описание

1. Разве эта функция возвращает PChar?
2. Описания не требуется. А выделение памяти требуется.

Access violation Найти похожие ветки