Ver Mensaje Individual
  #1  
Antiguo 09-11-2010
Alejo15x Alejo15x is offline
Miembro
 
Registrado: ene 2010
Posts: 55
Reputación: 15
Alejo15x Va por buen camino
Access Violation

Hola!

Tengo un problema con un codigo, el cual solo aparecé al ser llamado directamente desde un TTimer.

Mi codigó se vé así:

TTimer:
Código Delphi [-]
    // Mana Train 1
    if (Mana >= StrToInt(Edit8.Text)) then
    begin
      SendString(Edit9.Text);
      Delay(5000);
    end;

SendString:
Código Delphi [-]
procedure SendString(FVal:String);
var I:Integer;
begin
  for I := 0 to Length(FVal) do
  begin
    SendMessage(FMemory.Hwnd, WM_CHAR, Ord(FVal[i]), 0);
    Delay(VTypeWaitTime);
  end;
  PostMessage(TibiaHwnd, WM_KEYDOWN, VK_RETURN, 0);
end;

En rojo puse el area del error, donde me da una intrución como "Access Violation Error".

Puedo llamar al SendString normalmente y sin ningun problema desde un boton, o cualquier cosa, pero menos del TTimer.

Sabén que sucede?. Que eh echo mal?.

Saludos!
Responder Con Cita