[MiRiN]

В общем следующая задача передо мной стояла! Надо было Считать и выводить на форму Размер выбранного файла! Через потоки и через WipApi функцию! Как я это пытался сделать

Код:

function MyProc(str: string):DWORD;
var P : Pointer;
i: integer;
begin
i:=GetFileSize(StrToCard(str),P);
MainForm.Label1.Caption := intToStr(i);
Result := 0;
end;

procedure TMainForm.BitBtn1Click(Sender: TObject);
Var thID:DWORD;
begin
CreateThread(NULL, 0, MyProc, MainForm.Name.Text, 0, thID);
end;

Admin: Пользуемся тегами!!!

И в общем то так не получается... Если так то ругается компилятор на строчку CreateThread вот таким матом Incompatible types: 'Variant' and 'Pointer'

Но даже если я просто вызываю функцию MyProc(MainForm.Name.Text); мне выдаёт в ответ не размер файла а значение -1 !!
Помогите пожалуйста кто нить....

[AllMaNi]

На счет создания нити это делается так:

Код:

function MyProc:bool;
begin
 ShowMessage('hi');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 CreateThread(nil,0,@Myproc, nil, 0, Id1);
end;

Осознал ошибку?

[AllMaNi]

а насчет функции MyProc(MainForm.Name.Text) , то тебе ей в качестве параметра надо передать строку с путем к файлу.
А ты передаешь черти че.

[MiRiN]

ну так mainform.name.text это и будет строка в которй путь к файлу...

[AleD]

4 параметр в CreateThread это Pointer, указатель, а вы передаёте строку, тогда уж надо так:

Код:

function MyProc(str: pchar):DWORD;
var P : Pointer;
i: integer;
begin
i:=GetFileSize(StrToCard(str),P);
MainForm.Label1.Caption := intToStr(i);
Result := 0;
end;

procedure TMainForm.BitBtn1Click(Sender: TObject);
Var thID:DWORD;
begin
CreateThread(NULL, 0, MyProc, pchar(MainForm.Name.Text), 0, thID);
end;

либо эту строку сохранять в глобальной переменной, но здесь могут быть "погони" потоков

и кстати, установка переменных формы (vcl) из потока может (в определённых ситуациях) повиснуть оба потока, для этого нужно использовать функцию Synchronize

[6ruse]

Сообщение от MiRiN

В общем следующая задача передо мной стояла! Надо было Считать и выводить на форму Размер выбранного файла! Через потоки и через WipApi функцию! Как я это пытался сделать

Код:

function MyProc(str: string):DWORD;
var P : Pointer;
i: integer;
begin
i:=GetFileSize(StrToCard(str),P);
MainForm.Label1.Caption := intToStr(i);
Result := 0;
end;

procedure TMainForm.BitBtn1Click(Sender: TObject);
Var thID:DWORD;
begin
CreateThread(NULL, 0, MyProc, MainForm.Name.Text, 0, thID);
end;

Admin: Пользуемся тегами!!!

И в общем то так не получается... Если так то ругается компилятор на строчку CreateThread вот таким матом Incompatible types: 'Variant' and 'Pointer'

Но даже если я просто вызываю функцию MyProc(MainForm.Name.Text); мне выдаёт в ответ не размер файла а значение -1 !!
Помогите пожалуйста кто нить....

обязательно потоки??? а если Ttimer или это принципиально???