| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

COM сервер [D6, Win2k]

Skyhawk ©   (2003-12-19 17:29:00) 

Люди ПОМОГИТЕ!!! Очень надо написать СОМ сервер, который можно было бы запустить на удаленном компьютере,и принимать с него данные в форматах String и Bitmap, но СОМ технология и Remote Procedure Call для меня темный лес. Мне бы совет дельный и исходничек какой нибудь(по возможности). Заранее благодарен...

---

Opuhshii   (2003-12-21 14:07:00) [1]

имхо советом и исходничком не отделаетесь,..
книги нужно читать,.

---

Бином Ньютоныч   (2003-12-19 20:10:00) [2]

Сервер:

<Server_TLB.pas>
IMyDataPrvd = interface(IDispatch)
["{971107F6-A70E-44CE-AF1A-E715CFEB6E4B}"]
function GetStringData: WideString; safecall;
function GitBitmapData: OleVariant; safecall;
end;

<COM object unit>
TMyDataPrvd = class(TAutoObject, IMyDataPrvd)
protected
function GetStringData: WideString; safecall;
function GitBitmapData: OleVariant; safecall;
end;

function TMyDataPrvd.GetStringData: WideString;
begin
Result:="MyStringData";
end;

function TMyDataPrvd.GitBitmapData: OleVariant;
var
Bmp: TBitmap;
MS: TMemoryStream;
P: PByte;
begin
Bmp:=TBitmap.Create;
try
Bmp.LoadFromFile(BmpFileNameWithPath);
MS:=TMemoryStream.Create;
try
Bmp.SaveToStream(MS);
MS.Position:=0;
Result:=VarArrayCreate([1, MS.Size], varByte);
P:=VarArrayLock(Result);
try
MS.Read(P^, MS.Size);
finally
VarArrayUnlock(Result);
end;
finally
MS.Free;
end;
finally
Bmp.Free;
end;
end;


Клиент:

TForm1 = class(TForm)
Image1: TImage;
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

uses
Server_TLB;

procedure TForm1.Button1Click(Sender: TObject);
var
DataPrvd: IMyDataPrvd;
V: OleVariant;
MS: TMemoryStream;
Sz: integer;
P: PByte;
begin
DataPrvd:=CoMyDataPrvd.Create;
Label1.Caption:=DataPrvd.GetStringData;
V:=DataPrvd.GitBitmapData;
Sz:=VarArrayHighBound(V, 1);
P:=VarArrayLock(V);
try
MS:=TMemoryStream.Create;
try
MS.WriteBuffer(P^, Sz);
MS.Position:=0;
Image1.Picture.Bitmap.LoadFromStream(MS);
finally
MS.Free;
end;
finally
VarArrayUnlock(V);
end;
end;


---

Наверх