pfgpalmsynccomponent.pas

delphi编写与Palm数据交换管道连接程序。

procedure TpfgPalmSyncComponent.SendErrorMsg(const s: string);
begin
  if assigned(FOnErrorMessage) then
  begin
    FOnErrorMessage(self, s);
  end;
end;

procedure TpfgPalmSyncComponent.SetOnErrorMessage(
  const Value: TOnErrorMessage);
begin
  FOnErrorMessage := Value;
end;

procedure TpfgPalmSyncComponent.DoBeforeLocalList;
begin
  if assigned(FOnBeforeLocalList) then
  begin
    FOnBeforeLocalList(self, FSyncProperties);
  end;
end;

procedure TpfgPalmSyncComponent.SetOnBeforeLocalList(
  const Value: TOnBeforeLocalList);
begin
  FOnBeforeLocalList := Value;
end;

{Local Attributes Field processing}

procedure TpfgPalmSyncComponent.SetLocalAttribsField(
  const Value: TNumericField);
begin
  FLocalAttribsField := Value;
  if assigned(FLocalAttribsField) then
  begin
//    if assigned(FLocalAttribsField) then
//    begin
//      FLocalAttribsField := nil;
//    end;
    if assigned(FLocalDeletedField) then
    begin
      FLocalDeletedField := nil;
    end;
    if assigned(FLocalDirtyField) then
    begin
      FLocalDirtyField := nil;
    end;
    if assigned(FSetLocalAttribs) then
    begin
      FSetLocalAttribs := nil;
    end;
    if assigned(FGetLocalAttribs) then
    begin
      FGetLocalAttribs := nil;
    end;
  end;
end;


procedure TpfgPalmSyncComponent.SetLocalDeletedField(
  const Value: TBooleanField);
begin
  FLocalDeletedField := Value;
  if assigned(FLocalDeletedField) then
  begin
    if assigned(FLocalAttribsField) then
    begin
      FLocalAttribsField := nil;
    end;
//    if assigned(FLocalDeletedField) then
//    begin
//      FLocalDeletedField := nil;
//    end;
//    if assigned(FLocalDirtyField) then
//    begin
//      FLocalDirtyField := nil;
//    end;
    if assigned(FSetLocalAttribs) then
    begin
      FSetLocalAttribs := nil;
    end;
    if assigned(FGetLocalAttribs) then
    begin
      FGetLocalAttribs := nil;
    end;
  end;
end;

procedure TpfgPalmSyncComponent.SetLocalDirtyField(
  const Value: TBooleanField);
begin
  FLocalDirtyField := Value;
  if assigned(FLocalDirtyField) then
  begin
    if assigned(FLocalAttribsField) then
    begin
      FLocalAttribsField := nil;
    end;
//    if assigned(FLocalDeletedField) then
//    begin
//      FLocalDeletedField := nil;
//    end;
//    if assigned(FLocalDirtyField) then
//    begin
//      FLocalDirtyField := nil;
//    end;
    if assigned(FSetLocalAttribs) then
    begin
      FSetLocalAttribs := nil;
    end;
    if assigned(FGetLocalAttribs) then
    begin
      FGetLocalAttribs := nil;
    end;
  end;
end;

procedure TpfgPalmSyncComponent.SetGetLocalAttribs(
  const Value: TGetLocalAttribs);
begin
  FGetLocalAttribs := Value;
  if assigned(FGetLocalAttribs) then
  begin
    if assigned(FLocalAttribsField) then
    begin
      FLocalAttribsField := nil;
    end;
    if assigned(FLocalDeletedField) then
    begin
      FLocalDeletedField := nil;
    end;
    if assigned(FLocalDirtyField) then
    begin
      FLocalDirtyField := nil;
    end;
    if assigned(FSetLocalAttribs) then
    begin
      FSetLocalAttribs := nil;
    end;
//    if assigned(FGetLocalAttribs) then
//    begin
//      FGetLocalAttribs := nil;
//    end;
  end;
end;

procedure TpfgPalmSyncComponent.SetSetLocalAttribs(
  const Value: TSetLocalAttribs);
begin
  FSetLocalAttribs := Value;
  if assigned(FSetLocalAttribs) then
  begin
    if assigned(FLocalAttribsField) then
    begin
      FLocalAttribsField := nil;
    end;
    if assigned(FLocalDeletedField) then
    begin
      FLocalDeletedField := nil;
    end;
    if assigned(FLocalDirtyField) then
    begin
      FLocalDirtyField := nil;
    end;
//    if assigned(FSetLocalAttribs) then
//    begin
//      FSetLocalAttribs := nil;
//    end;
    if assigned(FGetLocalAttribs) then
    begin
      FGetLocalAttribs := nil;
    end;
  end;
end;

function TpfgPalmSyncComponent.DoGetLocalAttribs: byte;
begin
  result := 255;
  if assigned(FLocalAttribsField) then
  begin
    result := LocalAttribsField.AsInteger;
  end
  else
  begin
    if assigned(FLocalDeletedField) and assigned(FLocalDirtyField) then
    begin
      result := MakeAttribute(LocalDirtyField.AsBoolean,
        LocalDeletedField.AsBoolean);
    end
    else
    begin
      if assigned(FGetLocalAttribs) then
      begin
        result := GetLocalAttribs(self)
      end;
    end;
  end;
end;

procedure TpfgPalmSyncComponent.DoSetLocalAttribs(const value: byte);
begin
  if assigned(FLocalAttribsField) then
  begin
    LocalAttribsField.AsInteger := value;
  end
  else
  begin
    if assigned(FLocalDeletedField) and assigned(FLocalDirtyField) then
    begin
      LocalDirtyField.AsBoolean := isdirty(value);
      LocalDeletedField.AsBoolean := isdeleted(value);
    end
    else
    begin
      if assigned(FSetLocalAttribs) then
      begin
        SetLocalAttribs(self, value);
      end;
    end;
  end;

end;

{ Local Category field processing }

procedure TpfgPalmSyncComponent.SetGetLocalCatId(
  const Value: TGetLocalCatId);
begin
  FGetLocalCatId := Value;
  if assigned(FGetLocalCatId) then
  begin
    if assigned(FLocalCategoryField) then
    begin
      FLocalCategoryField := nil;
    end;
  end;
end;

procedure TpfgPalmSyncComponent.SetSetLocalCatId(
  const Value: TSetLocalCatId);
begin
  FSetLocalCatId := Value;
  if assigned(FSetLocalCatId) then
  begin
    if assigned(FLocalCategoryField) then
    begin
      FLocalCategoryField := nil;
    end;
  end;
end;

procedure TpfgPalmSyncComponent.SetLocalCategoryField(
  const Value: TNumericField);
begin
  FLocalCategoryField := Value;
  if assigned(FLocalCategoryField) then
  begin
    if assigned(FGetLocalCatId) then
    begin
      FGetLocalCatId := nil;
    end;
    if assigned(FSetLocalCatId) then
    begin
      FSetLocalCatId := nil;
    end;
  end;
end;

function TpfgPalmSyncComponent.DoGetLocalCatId: shortint;
begin
  if assigned(FLocalCategoryField) then
  begin
    result := FLocalCategoryField.AsInteger;
  end
  else
  begin
    if assigned(FGetLocalCatId) then
    begin
      result := FGetLocalCatId(self);
    end
    else
    begin
      result := 0;
    end;
  end;
end;

procedure TpfgPalmSyncComponent.DoSetLocalCatId(const value: shortint);
begin
  if assigned(FLocalCategoryField) then
  begin
    FLocalCategoryField.AsInteger := value;
  end
  else
  begin
    if assigned(FSetLocalCatId) then
    begin
      FSetLocalCatId(self, value);
    end;
  end;
end;

{ Local Record ID field processing }

procedure TpfgPalmSyncComponent.SetGetLocalRecId(
  const Value: TGetLocalRecId);
begin
  FGetLocalRecId := Value;
  if assigned(value) then
  begin
    if assigned(FLocalRecIdField) then
    begin
      LocalRecIdField := nil;
    end;
  end;
end;

procedure TpfgPalmSyncComponent.SetSetLocalRecId(
  const Value: TSetLocalRecId);
begin
  FSetLocalRecId := Value;
  if assigned(Value) then
  begin
    if assigned(FLocalRecIdField) then
    begin
      LocalRecIdField := nil;
    end;
  end;
end;

procedure TpfgPalmSyncComponent.SetLocalRecIdField(
  const Value: TNumericField);
begin
  FLocalRecIdField := Value;
  if assigned(FLocalRecIdField) then
  begin
    if assigned(FSetLocalRecId) then
    begin
      SetLocalRecId := nil;
    end;
    if assigned(FGetLocalRecId) then
    begin
      GetLocalRecId := nil;
    end;
  end;
end;

function TpfgPalmSyncComponent.DoGetLocalRecId: dword;
begin
  result := 0;
  if assigned(FLocalRecIdField) then
  begin
    result := FLocalRecIdField.Asinteger;
  end
  else
  begin
    if assigned(FGetLocalRecId) then
    begin
      result := FGetLocalRecId(self);
    end;
  end;
end;

procedure TpfgPalmSyncComponent.DoSetLocalRecId(const value: dword);
begin
  if assigned(FLocalRecIdField) then
  begin
    FLocalRecIdField.AsInteger := value;
  end
  else
  begin
    if assigned(FSetLocalRecId) then
    begin
      FSetLocalRecId(self, value);
    end;
  end;
end;



procedure TpfgPalmSyncComponent.SetAllowCreatePalmTable(
  const Value: boolean);
begin
  FAllowCreatePalmTable := Value;
end;

procedure TpfgPalmSyncComponent.DoEmptyLocalTable;
begin
  if assigned(OnEmptyLocalTable) then
  begin
    OnEmptyLocalTable(FLocalDataSet);
  end;
end;

procedure TpfgPalmSyncComponent.SetOnEmptyLocalTable(
  const Value: TOnEmptyLocalTable);
begin
  FOnEmptyLocalTable := Value;
end;

end.