Enviar dados de um programa para outro

Question

Algu�m sabe como posso enviar dados do meu programa para um outro?Exemplo:Cadastro de Clientes, tem os campos C�DIGO e NOME DO CLIENTE.No meu sistema eu possuo os dados do cliente e tenho 2 edits que ...

Paullsoftware · Answer

Na pr�tica nunca fiz isso, mas tente pesquisar algo sobre SendMenssage e PostMenssage......

Wdrocha · Answer

Bom dia....tenho certeza q este artigo cair� como uma luva.....[url]//www.devmedia.com.br/articles/viewcomp.asp?comp=1243&hl=[/url]Espero ter ajudado....Qualquer coisa....posta aew...Flw...

Dgsfilho · Answer

Cara, j� tive uma id�ia de como fazer mais ou menos, s� que preciso localizar o form para qual vai as informa��es e n�o sei o nome do form s� sei o caption e preciso enviar 2 ou mais edits inteiros para os outros componentes da outra aplica��o e isso num sei como fazer.

Dgsfilho · Answer

� o seguinte: quase consegui. Com o c�digo abaixo consigo enviar o texto para o �ltimo edit da aplica��o. Se a aplica��o que vai receber as informa��es tiver apenas um campo, envia normalmente, mas se a mesma tiver mais de um campo s� � enviada a informa��o para o �ltimo campo. Gostaria de saber como enviar v�rios (8 especificamente) valores diferente para uma outra aplica��o com 8 campos. Algu�m sabe?

procedure TForm1.Button1Click(Sender: TObject);
var
  AppRX : HWND; // aplica��o que vai receber as informa��es
  Campo : HWND; // campo da aplica��o que vai receber as informa��es
  Txt : String; // Texto a ser enviado
begin
  Txt := �Texto a ser inserido�;

  AppRX := FindWindow(nil,�Receptora�); // localiza a aplica��o receptora pelo caption

  Campo := FindWindowEx(AppRX, 0, 0, nil ); // localiza o campo que vai receber a informa��o

  SendMessage(Campo, WM_SETTEXT, 0, DWord(PChar(Txt))); // envia o texto para o campo
end;

Dgsfilho · Answer

sobe......

Bononi · Answer

Eu uso estas fun��es que fiz a muito tempo:

function BuscaCtrlNr(hApp: HWND; ControlClassName: string; CtrlNr: Word = 1): HWND;
var
i: Word;
hControl: HWND;
begin
Result := 0;
if IsWindow(hApp) then
begin
Dec(CtrlNr);
hControl := 0;
for i := 0 to CtrlNr do
begin
Control:=FindWindowEx(hApp,hControl,PChar(ControlClassName), nil);
if hControl = 0 then
Exit;
end;
end;
Result := hControl;
end;

procedure InsTxtEd(hApp: HWND; EditClassName, ATxt: string; EditNr: Integer);
var
hEdit: HWND;
begin
// Exemplo Busca pelo 2o Edit na aplica��o
hEdit := BuscaCtrlNr(FindWindow(�Nome da aplica��o�, nil), �Edit�, 2);
if hEdit <> 0 then
// Teste: Manda �Oi!� para o Edit
SendMessage(hEdit, WM_SETTEXT, 0, Integer(PChar(�Oi!�)));
end;

F�rum Enviar dados de um programa para outro #363882