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

Вниз

OleVariant в DCOM   Найти похожие ветки 

 
MVova   (2002-05-15 17:15) [0]

Всем привет.

Ситуация следующая:
Есть DCOM сервер который должен клиенту вернуть TImagesListComponent записаный в OleVariant.
Если сервер находится на Win2000S и клиент на Win2000Pro то все работает прекрасно, но если клиент на 98 то зависает.
Прелесть в том что зависает только на определенной картинке (количество картинок значения не имеет, но иногда проходит нормально 1/100).

Сервер:
function TTestBMP.GetBMP: OleVariant;
var
MS : TMemoryStream;
P: Pointer;
begin
MS := TMemoryStream.Create;
try
MS.LoadFromFile("C:\temp\Str.txt");
Result := VarArrayCreate([0, MS.Size - 1], varByte);
P := VarArrayLock(Result);
try
Move(MS.Memory^, P^, MS.Size);
finally
VarArrayUnlock(Result)
end
finally
MS.Free;
end;
end;

Клиент:
procedure TForm1.Button1Click(Sender: TObject);
var IT : ITestBMP;
P : TImagesListComponent;
L : TImageList;
begin
P := TImagesListComponent.Create(nil);
if Edit1.Text = "" then
IT := CoTestBMP.Create
else
IT := CoTestBMP.CreateRemote(Edit1.Text);
LoadComponentFromOleVariant(IT.GetBMP,P);
L := TImageList.Create(nil);
LoadComponentFromOleVariant(TImagesListItem(P.List.Items[0]).FoleComponent,L);
L.GetBitmap(0,Image1.Picture.Bitmap);
end;

Функция на сервере доходит до последнего ENDа и зависает.
Локально тоже все работает.
В C:\temp\Str.txt записан TImagesListComponent с одной картинкой.

Есть подозрение на то, что всети есть NT4S домен, может он "кусается" с Win200S? (но почему только на этой картинке???).

Если у кого есть желание попробовать могу скинуть на мыло клиент, сервер и файл с которым происходит даный казус.


 
MVova   (2002-05-15 18:01) [1]

Почему тишина???????????



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

Форум: "Основная";
Текущий архив: 2002.05.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.005 c
14-88612
Dimich
2002-04-18 12:21
2002.05.27
Про хитрую программку


1-88507
MystiX
2002-05-14 21:30
2002.05.27
Hooks


1-88425
Dr.Aleck
2002-05-16 21:52
2002.05.27
Как при помощи Делфи6 поменять ф-ию в чужой ДЛЛ-ке?


14-88618
Sergo
2002-04-19 13:34
2002.05.27
GroupBox


1-88517
BAHO
2002-05-15 00:07
2002.05.27
Отрезок времени...!





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский