Conectar a Internet
A ver si alguien me puede echar una mano (que no sea al cuello).Pues veréis, tengo un programa que debe realizar una conexión a internet, enviar un email, y desconectarse.Pues lo hace todo bien menos la desconexión, que no consigo hacerla.
Alguien ha tenido algún problema parecido, no sé de qué puede ser  :-((y estoy desperado ((más quel banderas)).
Saludos desde Sevilla
Paco
[email protected]
 
 

Voltar ao início
 

Checar se a impresora esta ativa

function IsPrinter : Boolean;
Const
    PrnStInt  : Byte = $17;
    StRq      : Byte = $02;
    PrnNum    : Word = 0;  { 0 para LPT1, 1 para LPT2, etc. }
Var
  nResult : byte;
Begin  (* IsPrinter*)
Asm
   mov ah,StRq;
   mov dx,PrnNum;
   Int $17;
   mov nResult,ah;
end;
IsPrinter := (nResult and $80) = $80;
End;
 

Voltar ao início
 

Imprimir documento Word
Holaaaa!!  Necesitaria imprimir un documento de word desde mi aplicación de delphi.  Solo imprimir, ni visualitzar ni nada.  Alguien sabe como puedo hacerlo?

uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var MSWord: Variant;
begin
  MSWord:= CreateOleObject ('Word.Basic');
  MSWord.AppHide;
  MSWord.FileNew('fichero.doc');
  MSWord.FilePrint;
end;

Voltar ao início
 

Criar tabela em tempo de execução
Necesito crear la siguiente tabla con sus respectivos campos en tiempo de ejecución desde Delphi 3.0. Algo mas, necesito que mi tabla creada sea una tabla Paradox pues mis demas tablas estan en Paradox.
PAISES
CodigoPais
NombrePais
NroDepartamentos
NroHabitantes

El indice para esta tabla es : CodigoPais

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,dbtables,db;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    Table1:TTable;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
    table1:=ttable.Create(form1);
    with table1 do
    begin
      Parent:= Form1;
      TableName := 'PAISES';
      TableType := ttParadox;
      FieldDefs.Add('CodigoPais', ftInteger, 0, True);
      FieldDefs.Add('NombrePais', ftString, 50, False);
      FieldDefs.Add('NroDepartamentos', ftInteger, 0, False);
      FieldDefs.Add('NroHabitantes', ftInteger, 0, False);
      AddIndex('CodigoPais','CodigoPais',[ixPrimary, ixUnique]);
      CreateTable;
      Open
    end;
end;
end.

Voltar ao início

Inserir tabelas no Word
Caros Colegas,
        Estou precisando, com certa >

Transfer interrupted!

Carlos Diniz
[email protected]
[email protected]

procedure TForm1.Button1Click(Sender: TObject);
var
VarWord: Variant; NumCol:Integer;
begin
  NumCol:=3DQuery1.Fieldcount;
  VarWord:=3D CreateOleObject('Word.Basic');
  VarWord.AppShow;
  VarWord.FileNew;
  while not Query1.EOF do
  begin
    for i:=3D0 to Query1.FieldCount-1 do
      VarWord.Insert(Query1.Fields[i].AsString+#9);
    Query1.Next;
  end;
  VarWord.EditSelectAll;
  VarWord.TextToTable(ConvertFrom :=3D 1,NumColumns:=3DNumCol);
  VarWord.TableSelectTable;
  VarWord.StartOfRow;
  VarWord.TableSelectRow;
  VarWord.TableHeadings(1);
  VarWord.TableAutoFormat(Format:=3D16,HeadingRows:=3D1);
  if SaveDialog1.Execute then
    VarWord.FileSaveAs(SaveDialog1.FileName);
end;

Voltar ao início

Selecionar elemento de ListBox utilizando botão direito
Cómo puedo seleccionar un elemento de un ListBox utilizando el botón derecho? (Es para lanzar un menú emergente que tiene que ver con dicho elemento) Muchas gracias y saludos desde Madrid.

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var Punto:TPoint;
begin
Punto.x:=x;
Punto.y:=y;
if Button = mbRight then
if ListBox1.ItemAtPos(Punto,True) <> -1 then
ListBox1.Selected[ListBox1.ItemAtPos(Punto,True)]:=true;
end;

Voltar ao início

Resolucao do monitor
Tenho um projeto cuja visualizacao no monitor de 800 X 600 esta otimo. Mas o monitor que o cliente tem a resolucao e de 640 x 480...Tenho como alterar via projeto? Ou tenho que alterar minha resolucao para depois compilar?
Ademir.

implementation
const
  ScreenWidth: LongInt =3D 800;
  ScreenHeight: LongInt =3D 600;
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
  i, OldFormWidth: integer;
begin
  scaled :=3D true;
  if (screen.width <> ScreenWidth) then begin
    OldFormWidth :=3D width;
    height :=3D longint(height) * longint(screen.height) DIV ScreenHeight;
    width :=3D longint(width) * longint(screen.width) DIV ScreenWidth;
    scaleBy(screen.width, ScreenWidth);
    font.size :=3D (Width DIV OldFormWidth) * font.size;
  end;
end;

Voltar ao início

Identificar palavras em um RichEdit
Me gustaria saber como hacer para que un RichEdit identificara palabras y las coloreara de un color determinado, por ejemplo, los comandos en negro, y comentarios en azul e italicas (algo asi como hace el editor de codigo de las unidades).

Hola,
Esto es un pequeno editor de HTML en colores:

procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
const
  Keywords : array[1..3] of string=('<body>','<p>','<\p>');
var
Keyword   : string;
character : string;
index     : word;
i         : integer;
position  : word;
begin
index:=0;
if (key=vk_space) or (key=vk_Return) then begin
   keyword:='';
   while  RichEdit1.SelStart-index>0 do begin
     character:=RichEdit1.Text[RichEdit1.SelStart-index];
     if (Character=chr($A)) or (Character=' ') then break;
     Keyword:=Character+Keyword;
     inc(index);
   end; (* while *)
   for i:=1 to 3 do if Keyword=Keywords[i] then begin
     position:=RichEdit1.selstart;
     with RichEdit1 do begin
       selstart:=position-length(Keyword);
       SelLength:=length(Keyword);
       SelAttributes.Color:=clRed;
       selstart:=position;
       sellength:=0;
       selattributes.Color:=clBlack;
    end; (* with *)
   end; (* if *)
end; (* if*)
end;

Voltar ao início
 

Grid com Combobox
Hi All,
Anybody knows a grid comp. with inplace combobox that is free and comes
with source code? I've tried AdvStringGrid, but there's no source code.
Thanks.
Nelson

Voltar ao início
 

Chamar programa de Email
Oi ALL
   ALLguem sabe como, atraves de um botao, chamar o programa de Email Default jah com o destinatario preenchido com um Email qualquer?
William Coelho Rocha
NPD - Nucleo de Processamento de Dados UFRN - Univ. Fed. do Rio Grande do Norte
[email protected]
ICQ 9466206

Uses Shellapi
procedure TForm1.Button1Click(Sender: TObject);
var st:string;
begin
st:='mailto:[email protected]?Body=';
ShellExecute(GetDesktopWindow, 'open',pchar(st+memo1.Lines.GetText),nil,nil, sw_ShowNormal);
end;
.
Voltar ao início