Developing.ru

Здрасте
Как все таки передать параметр типа string в поток. Я уже перерыл много форумов но взазумительного ответа так и не нашёл.
В самой процедуре потока с переменной происходят какие-то метаморфозы то буквы последние исчезают, то меняются.

передавай PСhar

Evan писал(а):Здрасте
Как все таки передать параметр типа string в поток. Я уже перерыл много форумов но взазумительного ответа так и не нашёл.
В самой процедуре потока с переменной происходят какие-то метаморфозы то буквы последние исчезают, то меняются.

напиши поподробнее, с кусочками кода =)

LAngel писал(а):передавай PСhar

пробовал все равно


type
TThreadParam = record
Hdr : pchar] of char;
end;
PThreadParam = ^TThreadParam;

function .... : cardinal
var
ThParam : PThreadParam;
begin
GetMem(ThParam, sizeof(TThreadParam));
if ThParam <> nil then
begin
ThParam^.Header := Pchar(Header);
// переменная Header имеете тип string
//и не меняется во время выполнения

FillMemory(@ThParam^.Url, sizeof(ThParam^.Url), 0);
lstrcpy(ThParam^.Url, Pchar(Url));
CreateThread(nil, 0, @GetAsync, ThParam , 0, Result);
end;
end;

А код самого потока?
передача верная.

Evan, проблема в том, что ты передаешь в поток локальную переменную. К моменту использования она оказывается разрушена.
Короче, объявляй ThParam на уровне модуля или как статическую (const).

Eugie, но память то выделяется, не важно, локальная переменная указывает на кусок в памяти или глобальная...

имхо передача верная..

Память-то выделяется, только переменная, которая на нее указывает, становится инвалидной по выходе из функции...

В самой процедуре потока с переменной происходят какие-то метаморфозы то буквы последние исчезают, то меняются.

Значит надо в самой процедуре обращаться к параметру переданному в поток, а не к переменной )

Дык, какая разница? Стек-то (т.е. его кусок - сама ThParam) все равно к моменту вызова GetAsync() оказывается порушенным.