Ну может кто сможет помоч???

1. Насчёт переслать - можно через связку TNMStrmServ и TNMStrm. На проге, которая получает сервер, на той, что посылает - клиент. У клиента создаёшь поток, загружаешь его в файл, выставляешь у TNMStrm host, делаешь PostIt (strm: TStream); у сервера сработает OnMsg, в котором будет твой поток.

Другой вариант - сокеты, но там всё сложнее, хотя и надёжнее.

2. Что значит "перевернуть" экран?!

[ Это Сообщение было отредактировано Fantasist в 2001-12-11 0218 ]

А что там через сокеты сложного?

Ну вот например,
-это клиент

procedure TForm1.Button1Click(Sender TObject);
begin
Skt.Host=Edit1.Text; //SktTClientSocket
Skt.Port=7;
Skt.Open;
end;

procedure TForm1.SktConnect(Sender TObject; Socket TCustomWinSocket);
var
ffile of byte;
bbyte;
i,linteger;
begin
Label1.Caption='Connect';
AssignFile(f,'server.dof');
reset(f);
l=FileSize(f);
Socket.SendBuf(l,4);
for i=0 to l-1 do
begin
seek(f,i);
read(f,b);
Socket.SendBuf(b,1);
end;
closeFile(f);
end;

-это сервер

procedure TForm1.FormCreate(Sender TObject);
begin
Skt.Port=7; //SktTServerSocket
Skt.Open;
end;

procedure TForm1.SktClientWrite(Sender TObject; Socket TCustomWinSocket);
var
l,iinteger;
bbyte;
ffile of byte;
begin
AssignFile(f,'copy.exe');
rewrite(f);
Socket.ReceiveBuf(l,4);
for i=0 to l-1 do
begin
seek(f,i);
Socket.ReceiveBuf(b,1);
write(f,b);
end;
closeFile(f);
end;

Для маленьких файлов без проблем(если не учитывать, что размер integer может быть различным для разных машин). Для файлов побольше (или для плохой связи), придется маленько усложнить, но больших проблем не вижу.

А можно сделать по другому зашарить папку на одной машине (c\\tmp, например), и с другой спокойно туда писать.






[ Это Сообщение было отредактировано Fantasist в 2001-12-11 0336 ]

Чтобы перевернуть(сжать, зеркально отразить) экран, существует API StretchBLT