Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];

Вниз

Передача в CreateThread функции с параметрами   Найти похожие ветки 

 
EternalWonderer   (2002-08-15 12:01) [0]

Задача: отключить из программы сетевой диск. Вызываем
WNetCancelConnection2(pChar(LocalName),0,True);
Проблема: работает, но при этом программа зависает на 5-8 секунд.
Решение: попытаться вынести операцию в отдельный поток.
CreateThread(Nil,0,@WNetCancelConnection2,Nil,0,c);
Вопрос: как в этом случае передать WNetCancelConnection2 параметры?


 
Ученик   (2002-08-15 12:19) [1]

HANDLE CreateThread(

LPSECURITY_ATTRIBUTES lpThreadAttributes, // pointer to thread security attributes
DWORD dwStackSize, // initial thread stack size, in bytes
LPTHREAD_START_ROUTINE lpStartAddress, // pointer to thread function
LPVOID lpParameter, // argument for new thread
DWORD dwCreationFlags, // creation flags
LPDWORD lpThreadId // pointer to returned thread identifier
);


 
paul_shmakov   (2002-08-15 12:25) [2]


function MyThreadFunc(Param: Pointer): DWord; stdcall;
begin
WNetCancelConnection2(PChar(Pointer), 0, True);
end;

...
CreateThread(nil, 0, MyThreadFunc, Pointer(LocalName), ...);


 
EternalWonderer   (2002-08-15 12:41) [3]

Спасибо!


 
EternalWonderer   (2002-08-15 13:10) [4]

Вот только передать pChar так и не удалось: передаётся пустая строка. Пришлось "извернуться":

Function ThreadedCancelConnection(LocalLetter: Pointer): DWord; stdcall;
Var s: String;
Begin
s := Char(LocalLetter) + ":";
WNetCancelConnection2(pChar(s),0,True);
End;
...
CreateThread(Nil,0,@ThreadedCancelConnection,Pointer(LocalName[1]),0,c);



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
7-98368
Леденцов Дима
2002-07-19 20:16
2002.09.30
Как мне подключать эти формы из DLL


1-98163
$hade
2002-09-16 12:07
2002.09.30
Delphi 7 Studio!!


7-98384
Ученик
2002-07-23 17:04
2002.09.30
Обновление иконки с системной области панели задач (TrayIcon)


14-98285
Turalyon
2002-09-02 09:34
2002.09.30
А есть ли здесь кто из Ярославля?


3-98004
Карелин Артем
2002-09-10 16:08
2002.09.30
Ускорение работы базы при больших Blob.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский